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PREFACE 

The  water  quality  model  documented  by  this  instruction  report  was  spon¬ 
sored  by  Headquarters,  US  Army  Corps  of  Engineers  (HQUSACE) ,  as  a  part  of  the 
Environmental  and  Water  Quality  Operational  Studies,  Work  Unit  1C. 3  (CWIS  Work 
Unit  31595) ,  entitled  "Improve  and  Verify  Riverine  Water  Quality  and  Ecologi¬ 
cal  Predictive  Techniques."  The  HQUSACE  Technical  Monitors  were 
Mr.  Earl  Eiker,  Dr.  John  Bushman,  and  Mr.  James  Gottesman. 

This  report  serves  as  the  user’s  manual  for  the  dynamic  riverine  water 
quality  model,  CE-QUAL-RIV1 .  The  first  draft  of  this  manual,  dated  September 
1982,  was  prepared  by  Drs.  Keith  W.  Bedford,  Robert  M.  Sykes,  and  Charles 
Libicki  of  Ohio  State  University  under  Contract  No.  DACW39-82-3548 .  This 
present  version  of  the  user’s  manual  is  a  result  of  revisions  to  the  1982 
draft  user's  manual  and  reflects  model  modifications  made  by  Ohio  State  Uni¬ 
versity  after  1982  and  by  the  Environmental  Laboratory  (EL) ,  US  Army  Engineer 
Waterways  Experiment  Station  (WES),  Vicksburg,  MS.  The  manual  revisions  were 

made  by  Dr.  Mark  Dortch  and  Ms.  Toni  Schneider  of  the  Water  Quality  Modeling 

— . .  Ml"  -*■ 

Group  (WQMG) ,  Ecosystem  Research  and  Simulation  Division  (ERSD) ,  EL.  The  WES 
revisions  to  the  model  code  were  made  by  Dr.  Dortch,  Ms.  Schneider,  Dr.  James 
Martin,  and  Dr.  Marc  Zimmerman  of  the  WQMG,  and  Dr.  D.  M.  Griffin,  who  was 
working  through  an  Interagency  Personnel  Agreement  with  Louisiana  Tech  Univer¬ 
sity.  This  work  was  conducted  under  the  general  supervision  of  Dr.  John 
Harrison,  Chief,  EL,  and  Mr.  Donald  Robey,  Chief,  ERSD,  and  under  the  direct 
supervision  of  Dr.  Dortch,  Chief,  WQMG. 

This  report  was  published  under  the  Water  Operations  Technical  Support 
(WOTS)  Program  managed  under  the  Environmental  Resources  Research  and  Assis¬ 
tance  Programs  (ERRAP) ,  EL.  Mr.  J.  Lewis  Decell  is  the  manager,  ERRAP. 

This  manual  was  reviewed  by  Dr.  Zimmerman  and  Ms.  Schneider  of  the  WQMG. 
The  report  was  edited  by  Ms.  Lee  T.  Byrne  of  the  WES  Information  Technology 
Laboratory. 

Figure  6  is  used  courtesy  of  the  American  Society  of  Civil  Engineers, 
Figures  7  and  8  courtesy  of  the  Water  Pollution  Control  Federation,  and 
Table  2  courtesy  of  John  Wiley  and  Sons,  Inc. 

Commander  and  Director  of  WES  during  publication  of  this  report  was 
COL  Larry  B.  Fulton,  EN.  Dr.  Robert  W.  Whalin  was  Technical  Director. 
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This  report  should  be  cited  as  follows: 

Environmental  Laboratory.  1990.  "CE-QUAL-RIV 1 :  A  ^ynami^,  One- 
Dimensional  (Longitudinal.)  Water  Quality  Model  for  Streams:  User's 
Manual,"  Instruction  Report  E-90-1,  US  Army  Engineer  Waterways 
Experiment  Station,  Vicksburg,  MS. 
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C0N7FR5I0N  FACTORS,  NON-SI  TO  SI  (METRIC) 
UNITS  OF  MEASUREMENT 


Non-SI  units  of  measurement  used 
(metric)  units  as  follows: 

_ Multiply _ 

cubic  feet 

feet 

inches 

miles  (US  statute) 
square  feet 


in  this  report  can  be  converted 

By  _ 

0.02831685 

0.3048 

25.4 

1.609347 

0.09290304 


to  SI 

_ To  Obtain 

cubic  metres 
metres 
millimetres 
kilometres 
square  metres 
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CE-QUAL-RIV1 :  A  DYNAMIC,  ONE-DIMENSIONAL  (LONGITUDINAL)  WATER 

QUALITY  MODEL  FOR  STREAMS 
USER'S  MANUAL 

PART  I :  INTRODUCTION 

Background 

1.  The  US  Army  Corps  of  Engineers  (CE)  has  major  responsibility  for  the 
regulation  of  the  Nation's  streams,  rivers,  and  waterways.  This  activity 
often  involves  resolving  issues  and  concerns  with  regard  to  the  water  quality 
of  these  regulated  systems.  Water  quality  simulation  models  can  be  powerful 
tools  for  studying  these  issues.  However,  to  be  useful,  the  water  quality 
model  must  be  properly  suited  for  the  problem  at  hand, 

2.  Regulated  stream  systems  may  include  jompli eating  pHsical  features, 
such  as  multiple  run-of-the-river  dams,  locks  and  dams,  and  reregulation  dams. 
Additionally,  highly  unsteady  flows  may  .»xist  or  may  be  in  the  planning,  as 
with  peaking  hydropower  releases.  There  are  numerous  water  quality  models  in 
existence,  but  most  were  developed  for  steady  flow  conditions  and  are  not 
appropriate  when  time-vaiying  flows  are  to  be  considered. 

3.  The  model  presented  herein  was  originally  developed  at  Ohio  State 
University  for  the  Environment- 1  Protection  Agency  (EPA) .  The  purpose  of  the 
development  was  for  predicting  water  quality  associated  with  storm  water  run¬ 
off.  Researchers  at  the  US  Army  Engineer  Waterways  Experiment  Station  (WES) 
were  attracted  to  the  model  because  it  is  fully  dynamic  for  flow  and  wrter 
quality  and  it  has  several  desirable  numerical  features,  such  as  the  two-point 
fourth-order  scheme  for  accurately  advecting  water  quality  concentrations. 

The  WES  contracted  Ohio  State  University  to  modify  the  code  to  handle  control 
structures.  This  modification,  along  with  the  unsteady  flow  feature,  gave  the 
model  the  versatility  needed  for  simulating  CE-regulated  stream/waterway  proj¬ 
ects.  Subsequently,  the  finished  version  was  tested  at  WES,  and  additional 
modifications  and  corrections  were  made,  resulting  in  the  model  presented 
herein,  CE-QUAL-RIVI . 
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Objective 


4.  The  purpose  of  this  manual  is  to  document  the  mathematical  and 
numerical  formulations  of  CE-QUAL-RIV1  and  to  provide  the  guidance  necessary 
for  its  implementation.  The  first  six  parts  deal  with  documentation,  whereas 
the  last  two  parts  are  for  operation.  Some  parts  are  associated  only  with  the 
hydraulic  code,  RIV1H,  whereas  others  deal  only  with  the  water  quality  code, 
RIV1Q.  This  is  due  to  the  fact  that  the  codes  are  separate.  The  output  from 
K1V1H  is  used  to  drive  RIV1Q.  It  would  also  be  possible  to  use  another 
hydraulic  code,  similar  to  RIV1H,  to  t’-.ve  RIV1Q. 

Model  Selection  Criteria 

5.  The  first  criterion  for  selection  of  GE-QUAL-RIV1  for  an  application 
is  whether  the  issues  can  be  resolved  with  a  one-dimensional  (1-D)  (cross 
sectional ly  averaged)  model.  Most  riverine  water  quality  issues  can  be 
resolved  with  a  1-D  model;  that  is,  lateral  and  vertical  gradients  in  water 
quality  constituent  concentrations  are  insignificant  and  unimportant  relative 
to  longitudinal  gradients.  This  is  generally  true  in  riverine  systems.  This 
assumption  implicitly  means  that  vertical  temperature ,  density,  and  chemical 
stratifications  (which  can  play  a  dominant  role  in  the  water  quality  of  lakes 
and  reservoirs)  are  nonexistent  or  negligible  for  practical  purposes.  Thus, 
although  this  model  can  la  used  for  run-of-the-river  reservoirs,  locks  and 
dams,  and  reregulation  pools,  the  user  must  first  be  sure  tha,.  vertical  strat¬ 
ification  does  not  exist  or  is  so  minor  as  to  rot  affect  water  quality 
conditions.  Guidance  for  determining  the  stratification  potential  of 
impounded  streams  can  be  found  in  Ford  and  Johnson  (1986) ,  Appendix  A. 

6.  The  second  criterion  for  selection  of  CE-QUAL-RIV1  has  to  do  with 
the  nature  of  the  flow  and  the  issues;  although  CE-QUAl-RIVl  was  developed  for 
water  quality  simulations  of  riverine  systems  with  highly  unsteady  flow,  it 
can  be  used  for  steady  flow  conditions.  However,  it  may  be  easier  and  more 
economical  to  use  another  more  simplistic  formulation,  such  as  the  ERA  QUAL2E 
model  (Brown  and  Barnwell  1987),  which  assumes  steady  flow.  If  the  issues 
derand  high  resolution  and  the  flows  change  substantially  over  a  period  of 
hours  or  days,  then  a  fully  dynamic  model,  such  as  CE-QUA.L-R1V1  should  be 
used . 
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7.  Specific  guidance  has  not  been  developed  to  determine  at  what  condi¬ 
tion  a  dynamic  flow  model  should  be  used.  The  development  of  specific  guid¬ 
ance  would  depend  on  the  issues  and  the  required  resolution.  For  example,  if 
daily  average  (or  longer  time  averages,  perhaps  even  steady-state)  predictions 
are  sufficient,  then  more  simplistic  modeling  approaches  may  suffice,  even  for 
unsteady  flow  projects.  However,  if  diel  fluctuations  (and  peaks  and  troughs) 
are  important  and  various  interest  groups  are  sensitive  to  such  fluctuations, 
then  a  dynamic  model  would  be  necessary  for  an  unsteady  flow  project.  Transi¬ 
ent  flow  conditions  can  produce  substantially  greater  fluctuations  in  diel 
temperature  and  dissolved  oxygen  (DO)  values  than  the  natural  diel  effects 
(Matter  et  al.  1983) . 

8.  Even  when  a  study  is  highly  sensitive  and  high  resolution  is 
required  with  diel  fluctuations,  a  time-varying  water  quality  model  that 
assumes  steady  flow  (such  as  QIJAL2E)  may  suffice  if  the  flows  are  relatively 
constant  or  change  slowly  during  the  simulation  with  respect  to  the  travel 
time  of  the  system.  However,  if  the  flows  change  substantially  during  a  day 
and  from  day  to  day,  then  a  dynamic  flow  model  (such  as  CE-QUAL-RIV1)  should 
be  considered.  The  study  of  riverine  water  quality  resulting  from  the 
releases  from  peaking  hydropower  dams  is  a  good  example  of  the  use  of 
CE-QUAL-RIV1 . 

9.  Tt  should  be  noted  that  RIVlH  uses  the  fully  dynamic  flow  equations; 
thus  it  has  wide-ranging  capabilities  with  good  resolution.  This  advantage 
must  be  weighed  against  possible  disadvantages  such  as  familiarity  of  the  user 
with  the  code.  RIV1Q  can  be  driven  by  any  hydraulic  or  hydrologic  routing 
model,  no  matter  how  simple,  as  long  as  the  proper  linkages  are  made. 
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PART  II:  THE  GOVERNING  EQUATIONS 


General  Considerations 


10.  The  transport  of  momentum  and  water  quality  constituents  during 
unsteady  flows  can  be  marked  by  sharp  gradients  in  flow,  elevation,  and  water 
quality  concentrations.  These  gradients  can  be  propagated  by  the  flow  wave 
through  regions  of  highly  variable  cross  section  intermittently  joined  by 
major  inflow  tributaries,  with  the  magnitudes  of  concentrations  often  being 
augmented  by  nonpoint  source  contributions. 

11.  Since  the  speed  of  flow  waves  is  often  quite  high,  water  quality 
concentrations  can  be  dominated  by  direct  transport  advection  rather  than  bio¬ 
geochemical  interactions  and  diffusion.  Therefore,  the  water  quality  model 
must  be  dynamic  and  have  the  minimum  following  attributes: 

a.  Account  for  time-varying  flow,  elevation,  and  water  quality 
constituent  changes  resulting  from  highly  unsteady  flows. 

b.  Include  the  direct  explicit  interaction  of  flow  and  elevation 
on  the  constituent  distributions. 

c.  Be  applicable  for  a  river  channel  of  arbitrary  cross  section 
and  specified  bottom  slope. 

d.  Allow  for  a  number  of  water  quality  constituents  and  the  proper 
mathematical  specification  of  their  mathematical 
interrelationship. 

e.  Account  for  the  effects  of  lateral  inputs  of  water  and  associ¬ 
ated  pollutant  concentrations. 

jE.  Allow  simulation  of  multiple  hydraulic  control  structures. 

12.  The  following  section  lists  the  assumptions  that  the  above 
attributes  require  for  the  development  of  the  basic  governing  transport 
equations. 

13.  For  a  river  that  is  much  longer  than  wide  or  deep,  the  following 
assumptions  apply: 

a.  Hydrostatic  pressure  is  assumed. 

b.  Lateral  and  vertical  gradients  are  small  and  neglected;  thus 
the  equations  are  crocs  sectionally  averaged  for  flow  and 
constituent  variables  (1-D  assumption). 

c.  All  cross  sections  and  bottom  configurations  are  known. 

d.  All  lateral  point  and  nonpoint  source  flows  and  input  concen¬ 
trations  are  known. 
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14.  When  solved,  the  hydraulic  transport  equations  permit  the  calcula¬ 
tion  of  downstream  histories  of  flow  and  water  surface  elevation.  These  equa¬ 
tions  have  been  known  for  some  time,  and  their  derivation  is  quite  routine. 
There  are  two  different  approaches  to  the  derivation  of  flow  wave  equations. 
The  first  starts  with  the  basic  three-dimensional  (3-D)  equations  of  continu¬ 
ity  and  Wavier  Stokes  (Bird,  Stewart,  and  I.ightfoot  1964)  and  by  cross- 
sectional  averaging  reduces  the  four  equations  to  a  coupled  pair  of  dynamic 
cross  sectionally  averaged  equations  for  longitudinal  space  and  time  patterns 
of  flow  and  elevation.  This  procedure,  however,  always  results  In  the  necess¬ 
ity  of  specifying  a  very  ambiguous  eddy  viscosity  to  account  for  the  ever¬ 
present  correlations  between  fluctuating  components  resulting  from  the 
averaging.  Longitudinal  eddy  viscosities  are  v^ry  small,  particularly  during 
elevated  flows  (Fischer  et  al.  1979) ,  and  are  quite  frequently  used  improperly 
to  tune  the  correct  answer  into  existence  rather  than  to  represent  actual 
problem  physics.  The  control  volume  method  (Liggett  1975)  is  used  to  derive 
the  equations  herein. 

15.  The  notation  and  coordinate  system  is  defined  as  in  Figure  1.  It 
is  assumed  that  the  coordinate  system  is  placed  in  the  river  bottom  with  the 
bed  slope  relative  to  a  gravity-based  coordinate  system  being  such  that  tan 
6  -  6  ,  and,  therefore,  8  is  very  small.  It  is  further  assumed  that  x  is 
directed  positive  downstream  and  that  because  the  bed  slope  is  very  small,  the 
water  elevation  h(x,t)  ,  directed  parallel  to  the  gravitational  direction,  is 
perpendicular  to  x  .  A(x,t)  is  the  cross-sectional  area,  and  B(x,t)  is 
the  channel  top  width;  by  knowing  the  shape  factor  £(z)  ,  A  and  B  can  be 
related  to  h(x,t)  . 

16.  Assume  as  in  Figure  2  that  a  discrete  length.  Ax  ,  of  river 
channel  is  isolated.  If  the  flow  Is  from  left  to  right,  then  unit  normals  n 

o 

and  ni  are  defined  as  being  positive  away  from  each  face  through  which  flow 
is  entering  and  exiting.  Total  mass,  momentum,  and  species  mass  will  be  con¬ 
served  within  this  control  volume.  The  general  form  of  the  control  volume 
conservation  law  for  a  continuum  of  mass  concentration  b  is  (Streeter  and 
Vylie  1979) 


d_B 

dt 


n)dA 


(1) 
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© 


Figure  1 .  Coordinate  system  md  notation 

Equation  1  states  that  the  total  time  rate  at  which  the  mass  in  the  control 
volume,  3  ,  (3  =  bV)  changes  equals  the  time  rate  of  accumulation  of  b 
within  the  control  volume  (cv)  plus  the  net  rate  at  which  b  is  being  carried 
into  the  control  volume  through  the  control  surface  (cs) .  The  control  volume 
conservations  of  water  mass,  momentum,  and  species  mass  are  respectively 
written  for  an  arbitrary  control  volume  in  a  3-D  flow  field  v  as 


fffH dv  +ff 


|£  d¥  +11  (pv  •  n)  dA  =  0 


momentum 


■f ?  f 


v(pv  •  n)  dA  =  F 


'mass 

species 


JJfg  „  +JJaG  .  ft) 


dA  -  S* 


(?-) 


(3) 


(4) 
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where 


p  =  fluid  density,  M/L^ 
t  =  time 

dV  =  differential  volume,  I" 

v  =  velocity  vector  (u^  +  vj  +  wk) ,  L/t 

2 

dA  =  differential  area,  L 

o 

F  =  vector  sum  of  the  real  applied  external  forces  on  the  cv  ,  ML/t“ 
a  -  species  mass  concentration,  M/L^ 

S*  =  net  source  term  for  biochemical  changes  in  a  ,  M/t 
The  variables  M  ,  L  ,  and  t  are  general  units  of  mass,  length,  and  time, 
respectively. 


Derivation  of  Equations 

17.  As  in  Liggett  (1975),  a  much  simpler  derivation  is  obtained  for  the 
river  problem  by  assuming  that  the  average  velocity,  U  ,  (or  average  species 
concentration  a)  is  known  at  a  cross  section.  A  Taylor  series  expansion 
across  inlet  and  outlet  permits  much  simpler  expressions  to  be  identified. 
Conservation  of  mass 

18.  The  conservation  of  water  mass  equation  says  the  tine  rate  of 
change  of  storage  equals  net  mass  efflux  through  the  control  volume  surface. 

By  a  Taylor  series  expansion,  therefore 

<=> 

For  an  incompressible  fluid  such  as  water,  p  ~  constant  ;  multiplying  out  and 
dividing  by  pAx  gives  for  small  Ax 


a(pAAx) 

8t 


aA  a(uA)  _  n 
It  +  "17“  “  0 


(6) 


where  Q  is  the  volume  flow  rate. 

Momentum  conservation 

19.  The  momentum  equation  is  a  bit  more  difficult.  It  states  that  the 
net  force  acting  on  the  cv  equals  the  time  rate  of  change  of  momentum  in  the 


cv  plus  the  net  rate  of  efflux  of  momentum  through  the  cv  .  Therefore 


+  p|[u«iA)]  +  |j  [»(««]  ^ 


-P j[u(UA)]  -  [tl(UA)]^j  -  F  (7) 

The  force  vector  F  requires  further  expansion  into  three  subcategories, 
gravity,  shear,  and  pressure  forces. 

20.  Gravity  force,  f^  .  The  total  gravity  force  is  nothing  more  than 
the  component  of  the  weight  of  water  in  the  control  volume  (pgAAx)  directed  in 
the  x-direction  or  pgAAx  sin  8  .  Therefore, 


f  -  PgAAxSo  (8) 

where  Sq  =  sin  0-0  is  the  slope. 

21.  Shear  force,  f^  .  The  channel  sides  and  bottoms  deplete  momentum 
by  the  action  of  bottom  friction  or  shear.  This  depletion  is  made  mathemati¬ 
cally  analogous  to  the  gravity  slope  term  by  setting 


fT  =  pgAAxSf 


(9) 


where  is  the  friction  slope.  Several  forms  for  the  friction  slope  exist, 

but  either  Chezy  or  Manning  forms  predominate,  i.e. 


Sf  = 


„2  2 

U  n 


_1. 


486  R 


2/3 


(10) 


where 

n  =  Manning  friction  factor 

R  =  hydraulic  radius  which  is  approximately  equal  to  A/B  ,  where  B 
is  the  top  width 
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Therefore, 


or 


f  =  pgAAx 


„2  2 

U  n 


1.486  R2/3_ 


f 

T 


=  pgAAx 


2.2 


A2  R4/3 


(11) 


where  the  absolute  value  has  been  retained  to  ensure  that  no  matter  which  way 
the  wave  propagates,  shear  always  dissipates  momentum. 

22.  Pressure  force,  f^  .  The  total  pressure  force  on  the  face  of  the 
control  volume  is  the  integral  of  the  irregular  trace  of  the  cv  ,  i.e. 


f  = 
P 


pg(h  -  z)£(z)dz 


(12) 


where  £(z)  is  the  channel  width  at  height  z  above  the  bottom.  A  Taylor 
series  expansion  gives  the  net  pressure  in  the  downstream  direction 


pg(h  -  z)£(z)dzAx 


—  [(h  -  z)  £(z)] 


dzAx 


and  by  chain  rule  differentiation 


(13) 


(14) 
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The  first  ua  represents  the  pressure  force  at  that  particular  cross  section. 
The  second  term  represents  the  net  pressure  force  caused  by  rapid  area  changes 
over  the  length  Ax  .  If  the  channels  are  considered  prismatic  and  regular, 
then  the  last  term  has  little  significance.  Therefore 

£p  -  -  pgA  f  4X  (15) 

The  final  equation  for  momentum  is  then 

f  +  t  ««>  +  *A  f  “  8A(So  -  V  (16) 


Modifications  to  momentum  and  continuity 

23.  Lateral  and  tributary  inflow.  Runoff  from  lands  adjacent  to  the 
channel  or  tributary  inflow  can  cause  increased  levels  of  total  mass  and 
momentum  in  the  river.  If  q  is  the  flow  per  unit  channel  length  entering 
the  river  with  velocity  U  ,  then  Equations  6  and  16  become,  respectively, 


aA. 

at 


+ 


(17) 


and 


I  ■  -i  <«» +  *A  f  -  ^<so  -  v +  •>%  <18> 

However,  the  model  code  does  not  include  the  last  term  in  Equation  18  because 
it  is  relatively  insignificant  compared  with  other  terms  of  the  momentum 
equation. 

24.  Flood  plain  storage.  As  sometimes  occurs,  excess  quantities  of 
nonmoving  water  are  often  stored  in  the  floodplain.  Since  the  water  is  not 
moving,  the  momentum  equation  remains  unaffected  by  this  feature.  The 
continuity  equation  must,  however-  account  for  the  excess  mass.  If,  as  in 
Figure  3,  Aq  is  defined  as  the  cross-sectional  area  of  the  floodplain 
waters,  then  Equation  17  becomes 
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Figure  3.  Floodplain  geometry  and  notation 


+  V  .  9Q 

3t  3x  q 


However,  the  effect  of  floodplain  storage  is  not  presently  included  in  the 
code. 

25.  Channel  constrictions.  Often  very  intense  channel  constrictions, 
due  to  bridges  for  example,  occur  over  channel  lengths  that  are  far  too  small 
to  economically  resolve  in  the  model.  The  subgrid  scale  effect  of  such 
constrictions  is  a  momentum  loss  and  backwater  effect.  This  effect  is 
accounted  for  in  the  right  side  of  the  momentum  equation  by  subtracting  the 
force  term,  pgAh_  where  h_,  is  a  head  loss  and  K_  is  a  coefficient  to  be 

b  h  b 

selected  and  optimized. 


(20) 


The  default  value  is  zero  for  no  constriction  loss.  A  value  for  as  high 

as  0.5  may  be  appropriate  for  an  abrupt  constriction. 

26.  Momentum  correction  factor.  When  the  velocity  across  the  channel 
is  substantially  nonuniform  through  the  model  reach,  it  may  be  necessary  to 
use  a  momentum  correction  factor,  0  ,  in  the  momentum  equation.  The  momentum 
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correction  factor  3  multiplies  the  second  term  on  the  left  side  of 
Equation  18;  this  correction  permits  the  use  of  the  average  velocity,  U  ,  in 
the  solution  whereas  the  velocity  distribution  at  each  cross  section  may  be 
quite  different  from  U  .  For  example,  for  laminar  flow  in  a  straight  round 
tube,  g  is  4/3.  It  equals  1.0  for  uniform  flow  and  cannot  be  less  than  1.0. 
For  RIV1H,  a  constant  value  is  used  throughout  the  modeled  reach.  The  default 
value  of  1.0  is  recommended  for  rivers  and  streams. 

27.  Tributary  networks.  The  momentum  and  continuity  equations  above 
must  be  applied  to  each  and  every  tributary  entering  the  main  stem.  At  each 
junction,  the  water  surfaces  in  each  branch  must  be  equal. 

Mass  species  equation 

28.  Again,  by  using  the  Taylor  series  approach,  the  advection  and 
diffusion  of  a  biogeochemically  reactive  substance  of  concentration  a  is 


3(aA)  3  (Qa)  =  _3 

3t  3x  3x 


+  yq  +  S* 


(21) 


where 

D  -  turbulent  dispersion  coefficient 

y  -  concentration  of  species  type  a  entering  the  tributary  from 
lateral  flow  q 

S*  =  source/sink  tern  in  units  of  (M/Lt) 

Equation  21  must  be  written  for  every  transported  species. 

Initial  and  Boundary  Conditions 


Initial  conditions 

29.  For  continuity,  the  only  initial  conditions  to  be  specified  at 

time  t  =  t  for  all  the  nodes,  i  ,  for  i  =  1  to  N  are: 
o 

A(t  =  tQ,x)  =  Ai(x)  (22) 

or  since  there  is  a  direct  correspondence  between  A  and  h  ,  it  is  permissi¬ 
ble  to  use 


h(t  =  tQ,x)  =  h^(x) 


(23) 
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Either  Equation  22  or  23  must  be  used,  but  not  both. 

30.  For  the  momentum  equation  either 


Q(t  =  tQ,x)  “  Q^x) 


(24) 


or 


U(t  =  tQ,x)  »  Ui(x) 


(25) 


are  permissible. 

31.  For  the  species  transport  equation,  the  following  is  used: 

a(t  =  tQ,x)  =  (26) 

Boundary  conditions  for 
continuity  and  momentum 

32.  For  the  upstream  boundary  at  x  =  0  and  the  downstream  boundary  at 
x  =  L  ,  the  following  sets  of  boundary  conditions  may  be  used  for  the  combined 
set  of  continuity  and  momentum  equations.  Please  note  that  two  first-order 
equations  require  only  a  total  of  two  boundary  conditions.  Therefore,  only 
one  set  may  be  used  for  each  simulation. 


h(t,x  = 

0) 

-  h  (t) 
u 

and 

h(t,x  = 

L) 

"  hd(t) 

(27) 

Q(t,x  = 

0) 

-  Vc) 

and 

Q(t,x  = 

L) 

=  Qd(t) 

(28) 

h(t,x  = 

0) 

=  hu(t) 

and 

Q(t,x  « 

L) 

-  Vfc) 

(29) 

Q(t,x  = 

0) 

-  Vfc) 

and 

h(t,x  = 

L) 

=  hd(t) 

(30) 

ii 

** 

u 

•C 

0) 

-  hu(t) 

and 

fj(Q,h) 

--  J 

(31) 

0(t,x  = 

0) 

-  Vc) 

and 

f2(Q.h) 

=  i 

(32) 
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where  f^  and  are  rating  curves  relating  h  and  Q  for  the  downstream, 

d  ,  boundary  conditions.  It  is  permissible  to  properly  substi  te  A  and  U 
for  Q  in  these  expressions. 

33.  It  should  be  noted  that  the  upstream  boundary  condition  for  a  trib¬ 
utary  can  be  selected  by  specifying  either  the  elevation  or  the  flow.  At  the 
downstream  tributary  boundary,  i.e.  the  confluence  with  the  main  stem,  only 
the  elevation  is  allowed  as  a  "boundary"  condition  to  ensure  that  continuity 
is  preserved  at  the  junction. 

Boundary  conditions 
for  species  transport 

34.  The  boundary  conditions  for  species  transport  are 

a(t,x  =  0)  =  au(t) 

a(t,x  =  L)  =  ad(t)  (33) 

However,  the  condition  a,(t)  is  presently  not  specif,  -:d  as  input  data  for 

U 

riverine  simulations.  This  must  be  included  as  input  if  the  model  is  modified 
for  inflow  at  the  downstream  end,  such  as  occurs  with  estuarine  boundary 
conditions. 


Equation  Summary 

35.  The  following  equations  govern  the  unsteady,  1-D  (longitudinal) 
hydrodynamics  and  transport: 

Continuity 


3(A  +  A  ) 

_ _ o_ 

3t 


q 


Momentum 


3Q  3(UQ) 
3t  3x 


.  3h  _  . 

gA  3x  gA 


T,  \ 

Ax  J 


+  qu 


(34) 


(35) 
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Constituent  transport 


3(gA)  3(Qg)  =  _3 

3t  3x  ~  3x 


+  yQ  +  S* 


(36) 


The  initial  conditions  are  Equatic  s  22  (or  23) ,  24  (or  25) ,  and  26  jr  the 
continuity,  momentum,  and  mass  species  equations  respectively.  Boundary 
conditions  are  one  set  selected  from  Equations  27  through  32  for  the  momentum 
and  continuity  equation  and  Equation  33  for  the  mass  species  equation. 
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PART  Ills  THE  NUMERICAL  SOLUTION  FOR  FLOW  AND  ELEVATION 


Rationale 


36.  As  noted,  flood  and  peaking  hydropower  waves  and  associated  trans¬ 
port  are  marked  by  rapidly  varying  flows,  elevations,  and  concentrations.  As 
derived,  the  continuity  and  momentum  equations,  from  which  elevations  and 
flows  are  calculated,  are  hyperbolic.  The  transport  equation  is  dominated  by 
advection;  thus  it  has  hyperbolic  features.  All  of  these  equations,  then,  are 
very  difficult  to  solve  numerically  because  the  smoothing,  stabilizing  effects 
of  dispersion  are  eliraixiated  or  reduced.  Inspection  of  the  governing 
equations  reveals  that  they  are  coupled,  unsteady,  and  nonlinear,  but  because 
the  contaminant  concentrations  do  not  affect  the  flow  field,  it  is  possible  to 
uncouple  the  solution  of  the  continuity  and  momentum  equations  from  the  solu¬ 
tion  of  the  species  transport  equation.  Once  solved,  the  complete  time  his¬ 
tories  of  flow  and  elevation  can  be  stored  and  used  as  input  information  for 
the  transport  calculations.  Because  the  governing  equations  are  hyperbolic, 
the  solution  procedure  for  the  flows  and  elevations  is  quite  different  from 
the  transport  solution;  therefore,  this  chapter  presents  the  solution  proce¬ 
dure  for  the  continuity  and  momentum  equation. 

Numerical  Approximations 

37.  Three  numerical  procedures  are  useful  for  hyperbolic  equations: 
the  finite  element  method,  the  method  of  characteristics,  and  the  finite  dif¬ 
ference  implicit  method.  The  method  of  characteristics  is  quite  accurate,  but 
can  be  difficult  to  program  by  anyone  but  a  specialist.  Reviews  of  this 
method  are  found  in  Liggett  and  Cunge  (1975)  and  Abbott  (1979).  The  implicit 
methods  are  simpler  to  program  because  they  are  much  more  direct  numerical 
approximation  techniques  to  partial  derivatives.  Implicit  methods  also 
possess  favorable  stability  behavior  even  in  applications  with  variable  space 
and  time  steps.  Frplicit  methods  are  totally  unsatisfactory  and  are  not 
considered . 

38.  There  are  many  implicit  procedures,  but  the  method  to  be  used  here 
is  the  four-point  implicit  method  first  used  by  Preissmann  (1961)  with 
subsequent  applications  by,  among  others,  Amein  and  Fang  (1970)  and  Amein  and 
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Chu  (1975).  This  formulation  is  currently  being  used  by  Fread  (1973,  1978)  in 
the  National  Weather  Service  Dambreak  Model  (Fread  1978).  The  method  is 
weighted  implicit  at  each  time  level,  is  unconditionally  stable  for  0.5  <  0 
£  1.0,  and  permits  relatively  unequal  space  and  time-steps.  The  scheme  has 
second-order  accuracy  when  6  =  0.5  and  first-order  accuracy  when  0  =  1.0  . 
It  is  fully  nonlinear  but  yet  is  a  compact  scheme  requiring  just  two  points  at 
each  time  level  for  second-order  spatial  (ccuracy. 

39.  The  river  system  is  discretized  (Figure  4)  by  a  network  of  time  and 
space  nodes  separated  by  time  and  space  increments  Ax^  ,  At^  .  If  3 
denotes  the  point  about  which  the  governing  equation  is  to  be  discretized, 
then  the  values  of  the  variables  at  the  four  points  surrounding  6  are  used 
to  form  the  appropriate  derivatives  and  weighted  averages.  For  a  general 
variable  w  ,  then 


o>(6)  =  0 


+  (1  -  0) 


(37) 


9(0(8)  „ 
3x 


+  (1  -  0) 


(38) 


9o>(B) 

St 


(39) 


Application  to  Governing  Equations 


The  continuity  equation 

40.  From  Equation  34,  the  continuity  equation  is 


3  (A  +  A  ) 
_ _ o_ 

at 


(40) 


Using  the  definitions  in  Equations  37,  38,  and  39,  the  discretized  form  of 
this  equation  is 
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-  g(i  -  e) 


,Ai+l  +  AiVSoi+l  +  Soi| 


+  (1  -  ©) 


/AJ  +  ^ 

f  i+1  i 

V  8  V 


h_ 


o\j  /  2\J 

L)  +  [SI] 

,2/  V  A2  / 

v  1+1  'A  'ij 


-  (i  -  e) 


,  j  ,  j\  /uj  + 
(qi+i  +  qi  qi+i  qi 


Gi  (Qi+l’  Ai+1’-Qi’  V  =  0 


(42) 


The  boundary  conditions 

42.  The  boundary  conditions  must  also  be  "discretized."  This  is 
accomplished  as  follows.  From  the  list  of  permissible  pairs  of  boundary 
conditions,  one  set  is  selected,  say  Equation  27.  Then  the  discretized  form 
of  the  upstream  boundary  in  terms  of  A  becomes 


F 

o 


aJ+1  -  A  (t^1)  = 


u 


(43) 


while  the  downstream  boundary  condition  at  node  N  becomes 

fn  =  4+1  -  Ad(tj+1)  =  0  (44) 


If  flows  or  discharges  are  to  be  specified,  then  from  Equation  28  the  upstream 
boundary  condition  becomes 


F  =  Q^+1  -  Q  (tj+1)  =  0  (45) 

0  u 

and  the  downstream  condition  is 

fn  =  qn+1  '  Qd(tj+1)  =  °  (46) 
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Equation  Assembly 


43,  Equations  F^  (Equation  41)  and  G^  (Equation  42)  are  applied  at 
every  node  i  on  both  the  main  stem  and  any  included  tributaries.  The  system 
of  algebraic  equations  results  in  2N-2  equations  for  2N  unknowns.  The  two 
boundary  conditions  are  sufficient  to  completely  close  the  problem.  If 

Go^l,AP  and  GN^N,AN^  are  tbe  boundary  conditions  written  in  the  form  of 
Equations  43-46,  then  the  resulting  system  of  2N  nonlinear  equations  is 
formally  written  as: 


G0(Q1,A1)  =  0 

F1(Q2,A2,Q1,A1)  =  0 
g1(q2,a2,q1,a1)  =  0 


Fi^i+l*Ai+r^i*Ai^  =  ° 


Gi(Qi+l»Ai+rQi,Ai)  =  ° 


Vi^N’^^N-rVP  “ 0 
S-l%,AN,QN-l,AN-l^  =  0 

VVV  =  0  (47) 

44.  The  general  solution  of  these  nonlinear  equations  can  proceed  in 

two  ways.  First  the  nonlinear  terms  may  be  linearized  by  using  information 
til 

from  the  j  time-step.  Time  marching  proceeds  very  easily  by  this  procedure. 
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However,  under  the  potentially  rapid  and  sharp  gradients  being  reproduced 
here,  a  full  nonlinear  solution  by  Newton-Raphson  iteration  procedures  is 
recommended  and  implemented. 


Newton-Raphson  Solution  for  Flow  and  Elevation 


45.  The  Newton-Raphson  procedure  is  based  upon  estimating  the  residuals 
from  each  algebraic  equation  introduced  by  assuming  initial  answers  for 

and  .  The  iterative  reduction  of  the  residuals  by  successive  Taylor 
series  refinement  of  the  estimates  of  and  A^  completes  the  procedure. 

The  generalized  Newton-Raphson  procedure  must  be  performed  at  each  time-step. 
This  method  has  been  used  with  excellent  success  by  the  previously  cited 
authors . 

46.  However,  unlike  these  authors,  this  formulation  employs  a  direct 
simultaneous  solution  at  each  iteration  for  all  the  flows  and  elevations  in 
both  main  stem  and  tributaries.  Previous  methods  employed  an  iterative  method 
of  estimating  such  variables.  Therefore,  for  each  Newton-Raphson  iteration, 
another  sequence  of  interior  iterations  was  performed.  The  formulation  herein 
requires  only  one  five-band  matrix  solution  at  each  Newton-Raphson  iteration. 
The  Newton-Raphson  concept  is  presented  herein,  and  details  of  the  matrix 
packing  and  solution  procedure  are  presented  in  the  program  operation  portion 
of  the  manual. 

1c  Ic  t,h 

47.  The  residuals,  R, ,  and  R„ .  ,  from  the  k  estimate  of  Q.  and 

i  1  L.  1  1. 

A^  are  found  for  Equations  and  as 


_  Jf.  .k  _k  Ak\  „k 

1  Q2,A2’Q1’A1  r  2,1 
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■  R2,N-1 

%^)  *  R2,N 


(48) 


48.  A  generalized  Taylors  series  for  a  function  T  that  is  a  function 
of  four  dependent  variables,  Sj  ,  S2  ,  ,  and  is  written  as 


k+1  _  Tk  8T  3T  ,  ,  3T_  3T 

T  "  T  +  dSl  +  3S^  dS2  +  ^  dS3  +  dS4 


(49) 


This  general  form  is  now  used  to  relate  the  residuals  to  the  gradients  as 

follows.  Keep  in  mind  that  we  want  to  drive  the  residuals  to  zero;  thus  we 

k+1 

want  F.  and  G.  to  be  zero.  If  T  represents  the  exact  solution  for 
1  1  k+1 

F.  or  G.  ,  then  T  is  zero.  This  means  that  the  unknowns  are  dS1  , 

11  k  k  1 

dS2  »  dSg  >  and  dS^  .  Let  T  be  the  R^  residual.  Further,  assume  that 


*1  ’ 


S2  ,  S3  ,  and  become  the  values  ,  A1+^  ,  ,  A^  .  In  the 

Newton-Raphson  iteration,  the  gradients  are  known  from  the  k*"^1  estimate  of 
and  A^  ,  and  the  relationship  between  the  gradients  and  the  residuals  becomes 
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(50) 


where  the  minus  sign  (from  moving  T  to  the  other  side  of  the  equation)  has 
been  included  in  the  residuals;  thus  the  residuals  are  the  negative  of  Equa¬ 
tions  41  and  42.  Note  that  all  derivatives  are  taken  with  respect  to  Q'|+|  , 
i*f*l  i+1  i+1  'i+1 

A ,  . ,  ,  Q,  ,  A.  ,  etc.  Additionally,  for  all  0_,  and  A  eva^a^ed  a1" 
It  i  xx  '  ■  i  i  - 

time  j+1 
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k+1  .k 

dAN  =  ^  S 


(51) 


,  and 


1+1 

49.  The  derivatives  of  F.  and  G  with  respect  to  A“  .  , 

1+1  1  1  1+1 
are  found  from  Equations  41  and  42  as  follows: 
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j+i/Rj+ij4/3 


(59) 


50.  The  following  subsidiary  manipulations  have  been  used.  First,  area 
and  depth  gradients  are  related  by  the  equation  3A/3x  =  B  3h/9x  and  second, 
the  hydraulic  radius  is  approximately  equal  to  the  hydraulic  depth  or 
R  -  A/B  .  The  explicit  relationship  between  A  and  h  is  permitted  if  the 
general  empirical  form  for  most  channel  cross  sections  is  used,  i.e. 


A  =  aQh  +  aLh  2  (60) 

By  appropriate  selection  of  the  coefficients,  most  regular  v  formed  channel 
cross  sections  can  be  modeled  by  this  function.  A  library  of  such  shapes  was 
created  and  will  be  described  in  detail  in  Part  VII  of  this  report.  It  is 
also  noted  that  Equations  52-59  have  been  multiplied  by  2At^  i-n  t^ie  code. 

Calculation  Procedure 


51.  The  nonlinear  solution  procedure  is  used  to  calculate  the  new 
flows,  ,  and  areas,  A^+^  ,  as  follows: 

a.  Assume  that  and  a|  are  known  eit'  -»r  from  initial 

conditions  or  from  the  completion  of  the  previous  Newton 
Raphson  solution. 

b.  By  insertion  of  and  A^  into  the  equations  for  F  and 

G  ,  form  the  k  =  1  residuals  R^  ,  by  assuming  that  k  =  1 
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estimate  for  Q^r^",k  and  is  the  jtk  time-step  value 

for  Q  and  A  or  the  initial  condition  (Step  1).  For 

til  1*4*1  14*1 

k  >  1  ,  the  previous  k  estimate  of  and  A^  are 

used. 

£.  After  forming  the  residuals,  the  gradients  are  formed  from 
Equations  52-59,  again  by  using  the  k  =  1  estimates  for  Q 
and  A  .  For  subsequent  iterations,  the  previous  kL  estimates 
are  used. 
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d.  From  Equation  50  and  Steps  1  through  3,  a  coefficient  matrix  is 
formed  and  assembled  as  In  Equation  61;  a  system  of  linear 

simultaneous  equations  [M]k{D}k  =  {R}k  is  solved  for  {D}k  . 

tr 

e.  When  solved  for,  the  departure  vector  {D }  is  added  to  the 
old  estimates  of  Q  and  A  ,  to  give  a  new  estimate  for  Q 
and  A  ,  i.e. 


Q 


j+1 ,k+l 
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=  q|+1’k  + 


dQ 


(62) 


and 


•j+1 »k+l 
Ai 


Aj+i,k 

Ai 


+  dAk 

i 


(63) 


f.  A  check  is  made  to  see  how  close  Q^+*,k+*  and  are 

to  and  A|+^’k  and  if  the  largest  difference  is  less 

than  some  specified  tolerance,  the  iteration  stops  and  the  new 

values  of  A  and  Q  for  the  j+1  time-steps  are  at  hand.  If 

■^+1  k+1 

the  tolerance  is  exceeded,  return  to  Step  2  and  using  ' 

i+1  k+1  1 

and  A^  ’  ,  repeat  Steps  2  through  6. 

52.  The  programming  of  this  routine  is  discussed  in  the  program  struc¬ 
ture  section.  Part  VII. 
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PART  IV:  THE  NUMERICAL  SOLUTION  FOR  CONSTITUENT  TRANSPORT 


Rationale 

53.  By  inspection  of  the  governing  equations  for  flow  and  elevation 
(Equations  34  and  35)  and  constituent  concentration  (Equation  36) ,  it  is 
apparent  that  the  flow  field  is  not  affected  by  constituent  concentration.  A 
complete  prediction  of  Q  and  A  can  be  made  without  one’s  solving  for  the 
constituents.  This  is  convenient  since  the  constituent  equation  can  be  solved 
separately  providing  economy.  Since  any  number  of  species  could  conceivably 
be  solved  for,  the  numerical  solution  must  be  as  quick  as  possible.  This  sug¬ 
gests  the  use  of  explicit  time-marching  procedures.  However,  simple  explicit 
(and  also  simple  implicit  methods)  time  marching  for  the  advection  problem  is 
a  very  severe  test  for  which,  unfortunately,  the  simple  methods  fail  to  pro¬ 
vide  the  desired  accuracy.  It  should  be  noted  that  pure  advection  is  the 
single  most  difficult  test  for  a  numerical  method  since  the  initial  concentra¬ 
tion  distribution  imposed  on  the  problem  must  be  numerically  advected  or 
transported  without  loss  of  mass,  shape,  and  peak  value,  or  distortion  of  the 
statistics  of  the  distribution  including  mean,  variance,  skew,  and  kurtosis. 

54.  A  powerful  and  accurate  explicit  method  based  upon  compact,  but 
fourth-order  accurate,  numerical  expressions  is  used  to  solve  Equation  36  for 
advection.  An  implicit  fractional  step  method  is  subsequently  used  for  the 
dispersion  terra. 


The  Governing  Equation 


55.  The  general  form  of  the  equation  to  be  solved  is,  for  a  mass  con¬ 
centration  a: 

3(Aa)  3(UA&)  _  __3  f  Ja 

3t  3x  3x  y  3x 

where 

D  =  disper-ion  coefficient 

y  =  concentration  of  the  runoff  input  to  the  channel  by  distributed 
flow  q 

S*  =  source/sink  term  which  accounts  for  changes  in  ct  due  solely  to 
biological  and  chemical  reasons 


The  variable  S*  is  decomposed  into  a  source/sink  term  that  is  a  function  of 
the  present  concentration  of  a  an<*  a  function  that  is  not;  therefore 


8  (A  g)  +  3(Q  ct)  =  _3 
3t  3x  3x 


qy  +  AC^a  +  AC2 


(65) 


3 

where  C,  has  units  of  (1/t)  and  C„  has  units  of  (M/L  t) .  This  is  the  form 
of  the  equation  to  be  solved,  and  it  requires  the  initial  and  boundary 
conditions  as  stipulated  in  Equations  26  and  33,  respectively. 

56.  The  governing  equation  after  chain  rule  differentiation  is  reassem¬ 
bled  in  the  form 


3a  +  y  j)a  +  a  3b 
3t  3x  3X 
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where 


and 
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(68) 


Equation  66  can  be  rewritten 
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where 


u  =  U  - 
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3x  A  3 x) 


U  -  DDA 


(70) 


and 
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(71) 


From  continuity  (Equation  36) 
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(72) 
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at 
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3x 


Using  Equation  72,  the  second  and  fourth  terras  on  the  right  side  of  Equa¬ 
tion  69  can  be  combined  as 


(73) 


and  (^j  is  redefined  as 


(74) 


Thus  Equation  69  becomes 


3a  —  3a 
3t  +  U  H 


'  ijd  +  <t2 


(75) 


57.  The  (j)^  and  (j^  terms  of  Equation  75  are  written  in  expanded  form 
so  that  they  can  be  followed  more  easily  in  the  code;  thus 


3a 

3t 


-  3a 
+  u  3^ 


r\  4* 

=  D-^  +  J(y-a)  -  K  a  +  SINKS 
3x  A  S 


(76) 


where 

Kg  =  -Cj  =  biochemical  uptake  or  decay  rates  (+)  and  growth  rates  (-) 

SINKS  =  ^2  =  biochemical  sources  (+)  and  sinks  (-) 

58.  The  left  side  of  Equation  76  is  solved  for  the  new  time  level  value 
i  *4*] 

of  a  (aj+j)  with  the  fourth-order  explicit  scheme.  Using  this  new  value, 
ai+l  iticremented  due  to  the  effects  of  the  second,  third,  and  fourth  terms 
on  the  right  side  of  Equation  76.  The  SINKS  and  Kg  values  are  interpo¬ 
lated  values  beLween  nodes  (see  Equation  90).  Finally,  the  solution  is 
completed  by  adding  the  effect  of  diffusion  (first  term  on  right  side  of  Equa¬ 
tion  76),  which  is  computed  implicitly. 
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Fourth-Order  Explicit  Scheme 


59.  The  compact,  fourth-order  accurate  scheme  presented  by  Holly  and 
Preissmann  (1978)  Is  a  satisfactory  scheme  for  1-D  advection  calculations  and 
is  used  for  all  mass  transport  calculations. 

Polynomial  assumption 

60.  It  is  assumed  that  the  variation  of  any  quantity  between  two 
adjacent  spatial  nodes  is  not  linear  but  is  depicted  by  a  cubic  polynomial 
such  that  for  a  variable  Y 


Y(0  =  A£3  +  BC2  +  D£  +  E 


(77) 


where 


C  = 


U*T 

Xi+1  "  Xi 


(78) 


where 

u*  =  average  characteristic  velocity 
t  =  time-step  t^+^  -  t^ 

The  coefficients  for  the  polynomial  are  evaluated  from  the  conditions  that 


Y  ( 1)  =  ;  Y  (0) 


°i+i  »  *(D  =  “4  ;  y(0) 
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(79) 


After  some  algebra 
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9x 
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Y(§)  =  Aj  +  A2  a^+1  +  Ag  ax^ 


“4  axi+l 


(80) 


40 


where 


(81) 


Al  =  C2(3  -  2?) 

A2  =  1  -  Aj  (82) 

A3  =  ?2(1  -  0(xi+1  -  x±)  (83) 

A4  =  -5(1  -  02(x1+1  -  x±)  (84) 

Note  that  since  the  polynomial  is  parameterized  by  first  derivatives,  an  equa¬ 
tion  for  the  first  derivatives  is  also  necessary.  A  polynomial  for  the  first 
derivatives  is  formed  from 

Y(0  =  bjcrj  +  b2aj+1  +  b^xj  +  b^ax^  (85) 


where 


-  65(5  -  1) 


(86) 


b 


2 


(87) 


b3  =  035  -  2)  (88) 

b4  -  (5  -  1)  (35  -  1)  (89) 


Both  Y(5)  and  Y(5)  will  be  used  to  determine  a^|  and  ax^j  *  respec¬ 
tively,  resulting  from  pure  advective  transport  (the  left  side  of 
Equation  76) . 

1+1 

Solution  procedure  for 

61.  Any  variable  or  coefficient  can  be  interpolated  to  obtain  the 
average  value  between  nodes  as 
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(90) 
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where 


5  = 


U*T 


xi+l  "  xi 


and  u*  is  the  average  characteristic  velocity  between  nodes.  Likewise,  u* 
can  be  found  by  placing  a  lir 
on  u*  ,  or  from  Equation  90 


can  be  found  by  placing  a  linear  interpolation  between  u^  and  u^+^  »  based 


t*  = 


-j+1  ,  -j 
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-  uj 
i+1  i 


(91) 


solving  for  u*  and  substituting  Equation  70  for  u 


i*  = 


+  uLi  "  DDA^ti  "  ddaLi 

i+l  i+1  i+l  i+1 
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x . , .  -  x. 
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(92) 


The  term 


3DDA 


9x  becomes  zero  since  D  and  A  are  allowed  only  linear 
variations  between  nodes. 


J+1 


** 


62.  The  value  of  due  to  advection,  ct^+^  ,  can  now  be  determined 


from 


** 

«i+l  -  Y(C) 


(93) 


where  Y(£)  is  evaluated  by  Equations  80-84.  The  values  for  ax^  and  <xx^+^ 
in  Equation  80  must  be  determined  from 


oxi+l  =  Y(C) 


(94) 


or  Equations  85-89.  The  decay,  sources/sinks,  and  lateral  inflow  terms  are 

kk 

next  added  to  a...  such  that 
i+l 
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Solution  procedure  for  ax^*j 


63.  A  spatial  derivative  of  the  transport  equation  must  be  developed  to 

update  .  This  development  is  done  by  taking  the  derivative  of  Equa- 

l*rl 

tion  76  with  respect  to  x  , 


9a’ 

9t 


.  =  8a' 

+  U  9T 


=  D 


92a' 

9x2 


t 

-  u  a 


(Y  -  a) 


-f « 

A 


-  k  a 
s 


-  k  a 
s 


+  SINKS 


(96) 


where 


u  =  u  -  D 

3  3a 

and  the  prime  denotes  ;  thus  a'  = 


=  ax  =  a 


Now  u  =  U  since  D 


and  A  are  allowed  only  linear  variations  between  nodes.  If  D’  is  small 
and  D  at  a  node  is  constant  or  changes  slowly  over  time,  the  characteristic 

■kit  k  * 

velocity  for  the  spatial  gradient  is  approximated  by  u  =  u  -  D  With 
* 

the  value  u**  ,  £  can  be  determined  from 
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64.  Now  Y($  )  can  be  evaluated  through  Equations  85-89.  This  evalua- 
tion  yields  axi+1  =  Y(S  )  ,  which  is  the  solution  to  the  left  side  of  Equa¬ 
tion  96.  All  but  the  first  term  on  the  right  side  of  Equation  96  are  added  to 

kk 

«...  such  that 
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(98) 


n+1 

The  final  update  for  ax^+^  is  completed  when  the' implicit  solution  due  to 
the  first  term  on  the  right  side  of  Equation  96  (diffusion)  is  added. 
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65.  The  derivatives  for  coefficients  used  in  Equations  96-98  are  found 
by 


and 
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(100) 


The  steps  outlined  in  this  section  are  repeated  for  each  spatial  node  before 
moving  on  to  the  next  time  line. 

Implicit  Diffusion 

66.  The  constituent  transport  (Equation  76)  and  the  spatial  derivative 
transport  (Equation  96)  equations  are  now  ready  to  have  the  effects  of 
diffusion  added  by 


J  +  x  D  & 
1  3x2 


(101) 


+  T  D 


where  now  the  j  time-level  is  actually  at  the  new  time-level  following  the 
advection  and  kinetic  reactions  but  just  prior  to  diffusion.  The  diffusion 
terms  are  approximated  by  difference  equations,  approximately  centered  in 
space  and  time.  That  is,  new  time  information  (j+1)  is  weighted  by  a  factor 
0  =  0.55  to  enhance  stability.  The  second  derivative  is  replaced  by  the 
difference  operator,  D  ;  thus 

XX 
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(102) 


r!  ’  ™Xx<“3+I>  +  -  9>  'n^1 

3x 

67.  In  space,  centering  would  be  exact  for  a  regular  grid.  However, 
with  an  irregular  grid,  a  quadratic  interpolation  is  used  by  taking  a  Taylor 
series  such  that 


where 


D  (u)  =  2 
xx 


ai+] 


-  a. 


‘i-1 


Axi^Axi-l  +  Axi^ 


Axi-l^Axi-l  +  Axi^ 


(103) 


Axi  =  *i+i  -  xi 

Applying  Equation  103  to  the  difference  operator  (Equation  102)  which  is 

i  1 

subsequently  applied  to  Equation  101  results  in  Equation  104  for  c£  , 


j+1  -  J 


+  2tD0 


j+1 

ai+l 


-  a4 


j+1 


j+1  j+1 

*i-l 


-  a. 


Axi(Axi_1  +  Axt) 


Ax^_^ (Ax^_j  +  Ax.) 


+  2tD(1  -  6) 


*i+l 


-  a. 


*i-l 


Axi^Axi-l  +  Axi^ 


Axi_1(Ax1_i  +  Ax±) 


(104) 


An  equation  similar  to  Equation  104  is  developed  for  ax^ 

68.  When  Equation  104  is  applied  to  every  node  for  i  going  from  2  to 
K-l ,  N-2  equations  for  N  unknowns  are  formed.  The  system  is  completed  by 
the  upstream  and  downstream  boundary  conditions.  The  upstream  boundary  condi¬ 
tion  is  given  explicitly  in  the  data  (or  inferred  for  the  spatial  derivative 
of  diffusion).  The  downstream  boundary  condition  is  simply  that  the  last  node 
is  not  affected  by  diffusion. 

69.  The  system  of  equations  is  assembled  in  tridiagonal  form  with  all 
new  values  (j+1)  on  the  left  side  and  all  old  (j)  values  on  the  right.  The 
implicit  solution  is  accomplished  with  the  Thomas  Algorithm  (subroutine 
TRIDAG) .  Subroutine  TRIDAG  is  also  used  to  calculate  a  cubic  spline  through 
the  initial  data. 
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Stability  Requirements 


70.  The  solution  of  the  constituent  transport  equation  has  a  Courant 
number  restriction  for  numerical  stability.  This  is  due  to  the  explicit 
solution  scheme  for  advection.  The  Courant  number,  defined  as 

cs  -  SI  (105) 

must  be  less  than  1.0  to  preserve  stability.  This  requirement  is  not  con¬ 
sidered  too  restrictive,  although  it  must  be  kept  in  mind  during  an 
application. 

71.  This  version  of  the  RIV1Q  model  is  coded  to  expect  flows  in  the 
downstream  direction  only.  Erroneous  numerical  solutions  can  be  experienced 
if  flows  in  the  upstream  direction  are  experienced.  Upstream  flows  do  not 
usually  occur  in  nontidal  streams.  However,  highly  unsteady  flows  may  reflect 
off  downstream  control  structures  resulting  temporarily  in  upstream  "reverse 
flows."  RIV1H  can  yield  reverse  flows  that  are  realistic,  but  reverse  flows 
that  persist  very  long  will  yield  unrealistic  results  from  RIV1Q. 

72.  In  a  model  application,  it  was  possible  to  damp  out  reverse  flows 
that  were  reflected  off  a  dam  downstream  of  a  peaking  hydropower  dam  by  pro¬ 
viding  a  minimum  flow  during  nongeneration  periods.  This  minimum  flow  was 
equivalent  to  the  dam  leakage.  RIV1Q  is  being  modified  to  allow  reversing 
flows. 
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PART  Vs  THE  EFFECTS  OF  TURBULENCE  AND  TEMPERATURE 
UPON  THE  ASSIMILATIVE  CAPACITY 


Turbulence 


73.  Turbulence  in  streams  affects  both  the  rate  of  gas  exchange  with 
the  atmosphere  and  the  rate  of  pollutant  removal.  In  both  cases,  the  effects 
are  achieved  via  the  compression  and  disruption  of  the  boundary  layer  at 
either  the  top  or  the  bottom  of  the  stream.  While  boundary  layer  theory  suf¬ 
fices  to  account  for  virtually  the  whole  of  gas  hange,  it  must  be  borne  in 
mind  that  pollutant  removal  occurs  via  three  separate  mechanisms:  (a)  bio¬ 
degradation  of  suspended  and  dissolved  matter  by  plankton;  (b)  sedimentation 
of  settleable  matter  into  the  benthos,  where  it  may  be  degraded;  and  (c)  dif¬ 
fusion  of  soluble  and  colloidal  matter  through  the  boundary  layer  into  the 
benthos,  where  pollutants  react  either  biologically  or  physlcochemically. 
Turbulence  substantially  affects  only  the  last  two  removal  mechanisms.  The 
present  model  represents  all  three  mechanisms  by  a  single  decay  term.  This 
limitation  can  be  improved  upon  later  if  sediment  transport  and  sediment/ 
water  interactions  are  included. 

Rate  of  pollutant  removal 

74.  Consider  first  the  flux  of  matter  into  the  benthos  (Figure  5).  A 
simplified  version  of  Novotny’s  (1969)  analysis  is  presented. 

75.  It  is  assumed  that  matter  transits  the  benthal  boundary  layer  (or 
viscous  sublayer)  by  molecular  diffusion  and  the  time  scales  are  long  enough 
that  the  composition  of  the  boundary  layer  at  any  given  river  station  is  con¬ 
stant.  The  concentration  of  the  substance  of  interest  is  C  (mass  per 
volume)  at  the  top  of  the  boundary  layer  and  zero,  or  at  least  much  less  than 
C  ,  at  the  bottom.  Under  these  conuitions,  Fick's  law  of  diffusion  can  be 
written  in  the  vertical  direction  as: 


Flux  density 


mass 


.  area 


time , 


(106) 


where 


D 


L 


=  molecular  diffusivity  of  the  substance,  area/time 
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Figure  5.  Schematic  longitudinal  section  of  a  river 

C  =  concentration  of  the  substance  in  the  main  body  of  flow  at 
the  given  river  station,  mass/volume 

h,  =  thickness  of  the  benthal  boundary  layer,  length 
b 


The  problem  here  is  to  evaluate  the  thickness  of  the  benthal  boundary  layer. 
Dimensional  analysis  shows  that  the  ratio  of  the  boundary  layer  thickness  to 
the  height  of  a  characteristic  roughness  element  should  be  a  function  of  the 
boundary  layer  Reynold ' s  number  (Yalin  1977): 


(107) 


where 

vA  =  shear  velocity;  defined  to  be  equal  to  the  square  root  of 
the  ratio  of  the  horizontal  shear  stress  on  the  bottom, 
(force/area),  to  the  mass  density  of  water,  p  (mass/volume) , 

i.e,,  vA  =  v'tqTp  ,  length/time 

6  =  height  of  a  typical  roughness  element  on  the  stream  bottom,  length 
\>  =  kinematic  viscosity  of  the  stream  water,  area/time 
A  simple  force  balance  on  a  short  steady-state  section  of  stream  shows  that 
Tq  is  (Yalin  1977) : 
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Tq  »  YSR 


(108) 


where 

Y  =  specific  weight  of  the  stream  water,  weight/volume 
S  =  energy  gradient  of  the  stream,  dimensionless 
R  =  hydraulic  radius,  length 

Recalling  the  Manning  equation,  it  is  clear  that  tq  is  proportional  to  the 
square  of  the  mean  velocity,  at  least  for  steady  flow.  Since  the  derivation 
of  Equation  108  assumes  that  the  flow  is  unaccelerated,  it  does  not  strictly 
apply  to  the  dynamic  case  at  hand.  However,  Equation  108  does  show  that  the 
shear  velocity,  v^  ,  depends  on  the  mean  velocity  and  should  increase  with 
it.  Further  analysis  shows  that  vA  is  correlated  with  both  mean  velocity 
and  mean  depth  of  flow,  or  hydraulic  radius  (Yalin  1977). 

76.  The  net  result  of  this  analysis  is  that  h^  is  reduced  if  mean 
velocity  increases  or  if  hydraulic  radius  decreases.  Thus,  the  flux  density 
may  be  rewritten  as: 


Flux  density 


Dt  •  g(U)  .  C 

MR) 


(109) 


where 

g(U)  =  monotonically  Increasing  function  of  mean  velocity 
h(R)  =  monotonically  increasing  function  of  hydraulic  radius 
77.  For  use  in  a  water  quality  model,  flux  density  must  be  converted 
into  a  volumetric  reaction  rate.  Clearly,  the  mass  rate  at  which  matter  dif¬ 
fuses  into  the  benthos  is  equal  to  its  mass  rate  of  disappearance  from  the 
water  column.  Therefore,  for  any  fixed  control  volume,  one  can  write: 


Flux  density 


Bottom  area 


Reaction  rate 
per  unit  volume 


Volume 


Reaction  rate 
per  unit  volume! 


Flux  density 
R 


[Reaction  rate 
[per  unit  volume 


dl  •  g(U) 

R  .  h(R)  *  C 


(110) 
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The  minus  sign  in  the  last  equation  indicates  that  the  reaction  is  a  sink. 

The  fundamental  definition  of  the  hydraulic  radius  is  the  volume/area  ratio. 

78.  Finally,  it  may  be  noted  that  both  the  steady-state  mean  velocity 
and  hydraulic  radius  are  simple  power  functions  of  the  steady  flow,  Q 
(Leopold,  Wolraan,  and  Miller  1964).  Therefore,  the  sink  term  can  be  written 
as  a  simple  function  of  the  discharge.  One  obvious  but  simple  suggestion  is: 


Rate  of  reaction 
per  unit  volume 


C 


(111) 


where 

a,b  =  empirical  coefficients 
Q  =  stream  flow,  volume/time 
aQ°  »  first-order  reaction  rate  coefficient,  per  time 
The  coefficients  a  and  b  must  be  regarded  as  site  specific.  Since  b 
represents  only  the  boundary  layer  thickness,  it  should  be  the  same  for  all 
reactants.  The  coefficient  a  ,  however,  includes  the  diffusivity  of  the 
reactant,  so  it  may  vary  among  reactants. 

79.  The  removal  of  settleable  particles  is  somewhat  more  complicated. 
The  benthal  boundary  layer  cannot  be  regarded  as  stable  but  must  be  thought  of 
as  being  intermittently  disrupted.  Therefore,  deposited  particles  are  sub¬ 
jected  to  fluid  drag  forces.  According  to  Yalin  (1977),  the  mean  velocity  at 
which  granular  particles  just  begin  to  move  is  given  by: 


U 

c 


,0.81  0., 19 

a  H 


1 2.89g 


ps  - 


(112) 


where 

g  =  gravitational  acceleration,  units 

p  =  mass  density  of  the  particle,  mass/volume 
s 

p  =  mass  density  of  water,  mass/volume 
d  =  particle  diameter,  length 
H  =  mean  depth,  length 

At  velocities  less  than  that  specified  by  Equation  112,  granular  particles 
remain  at  rest.  Since  in  any  river  there  is  a  distribution  of  particle  sizes, 
any  velocity  must  scour  some  particles,  and  high  velocities  must  scour  all 
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particles.  Thus,  as  the  discharge  increases,  the  number  of  particles  scoured 
must  increase  because  U  increases,  and  the  net  flux  of  settleable  particles 
entering  the  benthos  must  decline.  For  the  time  being,  subject  to  later 
revision,  it  is  assumed  that  the  net  removal  of  settleable  particles  is 
describable  by  a  law  like  Equation  111. 

80.  Finally  there  is  the  decay  of  soluble  and  nonsettleable  material  to 
be  considered.  It  Is  assumed  that  this  decay  is  substantially  unaffected  by 
turbulence,  which  is  the  classical  Streeter-Phelps*  (1925)  assumption.  Since 
decay  by  plankton  is  much  slower  than  decay  by  benthos  (presumably  because 
benthos  has  much  more  biomass) ,  in  large  rivers  a  lower  bound  must  be  set  for 
the  first-order  decay  rate  given  by  aQ  .  This  lower  bound  represents  plank¬ 
ton  decay,  and  it  will  be  approximated  by  the  bottle  decay  rates  observed  in 
the  laboratory. 

81.  Some  experimental  support  for  this  analysis  is  provided  by  Wright 
and  McDonnell  (1979),  Garland  (1978),  and  Kittrell  and  Furfari  (1963).  Wright 
and  McDonnell's  data  for  carbonaceous  biochemical  oxygen  demand  (CBOD) 
exertion  are  shown  in  Figure  6.  In  this  case,  there  is  a  strong  correlation 
between  the  CBOD  decay  rate,  Kj  ,  and  the  stream  discharge.  The  reported 
regression  line  is: 

=  10.3  q"0*49  (113) 


where 

K1  =  CBOD  decay  rate,  per  day,  base  e,  20°  C 
1  3 

Q  =  stream  flow,  ft  /sec 

This  equation  was  derived  for  stream  depths  between  0.9  and  32  ft*  and  stream 

3 

flows  from  about  5  to  9,000  ft  /sec.  Equation  113  includes  planktonic  and 
benthal  decay  caused  by  both  sedimentation  and  diffusion  through  the  benthal 
boundary  layer.  It  clearly  supports  the  analysis  just  presented.  The  lower 
bound  foi  may  be  taken  from  the  data  of  Schroepfer,  Robins,  and  Susag 

(1960),  shown  in  Figure  7. 

82.  Ammonia  is  not  settleable,  but  both  planktonic  decay  and  diffusion 
through  the  boundary  layer  into  the  benthos  occur,  so  a  formula  for  the 


*  A  table  of  factors  for  converting  non-SI  units  of  measurement  to  SI 
(metric)  units  is  presented  on  page  6. 
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WETTED  PERIMETER,  P.  FT 

Figure  6.  Variation  of  the  stream  K.  with 
hydraulic  properties  (after  Wright  and 
McDonnell  1979)  (Copyright  1979  American 
Society  of  Civil  Engineers  (ASCE) , 

reproduced  by  permission  of  ASCE) 

nitrogenous  biochemical  oxygen  demand  (WBOD)  decay  rate,  ,  like  Equa¬ 
tion  111  could  be  expected.  The  lower  bound  for  may  be  approximated  by 

the  bottle  decay  rates  given  in  Table  1.  These  data  clearly  show  the  strong 
effect  of  water  quality  on  .  Comparing  Table  1  and  Figure  7,  it  may  be 

noted  that  bottle  values  for  K  are  as  much  as  10  times  the  bottle  values 

n 

for  K1  .  Aside  from  this,  it  must  be  admitted  that  strong  support  for 

representing  Kn  by  a  formula  like  Equation  111  is  lacking.  Bansal's  (1976) 

data  for  K  are  shown  in  Figure  8.  These  data  are  ambiguous.  The 
n 

regression  line  is: 


K  =  0.379 
n 


..-3  0.68  -0.36  u0.04 

10  g  v  H 


(114) 
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WITHOUT  PRELIMINARY  SEDIMENTATION 
•  DEMONSTRATION  PLANT 
A  SMALL  SCALE  PILOT  PLANT 

WITH  PRELIMINARY  SEDIMENTATION 

O  DEMONSTRATION  PLANT 
£>  SMALL  SCALE  PILOT  PLANT 

NOTE:  K,  (BASE  E)  =  2.3  K,  (BASE  10) 

Figure  7.  Variation  of  the  bottle  with  the  degree  of 

biological  wastewater  treatment  (after  Schroepfer,  Robins, 
and  Susag  1960)  (Copyright  1960  Water  Pollution  Control 
Federation  (WPCF) ,  reproduced  by  permission  of  WPCF) 


where 

K  =  NBOD  decay  rate,  per  day,  base  e,  20°  C 
n  2 

g  =  acceleration  because  of  gravity,  ft/sec 

2 

v  =  kinematic  viscosity,  ft  /sec 
H  =  stream  depth,  ft 

Unfortunately,  most  of  Bansal's  data  comes  from  moderately  deep  rivers,  5  to 
10  ft,  and  his  regression  line  yields  a  nearly  constant  of  about  0.25  per 

day  (base  e,  20°  C)  in  all  cases.  His  graph  shows  two  sets  of  outliers,  one 
from  the  Flint  River,  Michigan,  and  the  other  from  the  Big  Blue  River, 
Nebraska.  These  rivers  are  only  1  to  2  ft  deep.  The  Flint  River  data  com¬ 
prise  relatively  high  values,  about  2.0  per  day,  whereas  the  Big  Blue 
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Table  1 

First  and  Second  Stage  Bottle  BOD  Parameters  for  the  Scioto  River 
and  the  Woutherly  Wastewater  Treatment  Plant,  Columbus,  OH* 


Statistic* ** 

Raw 

Municipal 

Sewage 

Primary 

Effluent 

Secondary 

Effluent 

Scioto 

River 

Mean  values 

Ki 

0.230 

0.251 

0.294 

0.169 

First  stage 

w 

293 

254 

104 

21.7 

Parameters 

-0.77 

-0.42 

0.50 

0.99 

Coefficients 

K1 

0.528 

0.616 

0.790 

1.116 

of  variation 

i 

Lo 

w 

0.430 

0.543 

0.798 

0.811 

2.7 

3.9 

4.2 

1.9 

Sample  sizes 

60 

56 

62 

47 

Mean  values 

K 

0.226 

0.402 

0.400 

0.599 

Second  stage 

Ln 

265 

250 

64.7 

15.9 

Parameters 

n 

WN 

12.1 

11.1 

9.61 

8.68 

Coefficients 

K 

0.787 

0.642 

0.198 

0.413 

of  variation 

n 

ln 

WN 

0.312 

0.461 

0.399 

0.215 

0.208 

0.334 

0.232 

0.181 

Sample  sizes 

5 

7 

4 

8 

*  From  Strand  (1975). 

**  K. ,  K  =  decay  rate  coefficient,  per  day,  base  e,  20°  C. 

Lj,  Ljj  =  CBOD ,  NBOD ,  mg  02/l. 
w,  w^  =  lag  period,  days: 

River  data  comprise  relatively  low  values,  about  0.1  per  day.  The  lack  of 
correspondence  between  the  nitrification  rates  in  the  Flint  and  Big  Blue 
Rivers  may  be  due  to  differences  in  bottom  substrate,  since  streams  with 
unstable  bottoms  cannot  be  expected  to  develop  significant  benthal  popula¬ 
tions.  Alternatively,  their  water  quality  may  differ  greatly.  As  a  result, 
Bansal's  (1976)  data  show  no  effect  of  hydraulic  conditions  upon  nitrifica¬ 
tion.  Curtis,  Durrant,  and  Harman  (1975)  and  Garland  (1978)  have  shown  that 
in  the  River  Trent  system  (UK)  the  numbers  of  planktonic  nitrifiers  are  insuf¬ 
ficient  to  account  for  more  than  an  insignificant  portion  of  nitrification 
observed  and,  consequently,  nitrification  in  the  Trent  system  must  be  a  ben¬ 
thal  process.  The  Trent  and  its  tributaries  are  less  than  1.9  m  deep  in 
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Figure  8.  Variation  of  the  river  with  hydraulic  properties 

(after  Bansal  1976)  (Copyright  1976  WPCF,  reproduced  by  permis¬ 
sion  of  WPCF) 

nitrifying  reaches,  so  benthal  effects  should  be  significant.  Unfortunately, 
Garland  (1978)  also  reported  that  the  rate  of  nitrification  was  inversely 
related  to  the  stream  velocity: 


K 

n 


=  0.0833  T  + 


2.1234 

U 


+  0.0646  B 

n 


R2  =  0.972 


(115) 
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where 


T  =  water  temperature,  °C 
U  =  mean  velocity,  km/hr 

B  =  concentration  of  Nitrosomonas ,  1,000  cells/ml 
n 

Thus,  the  effects  of  turbulence  upon  nitrification  remain  uncertain.  However, 
in  view  of  the  fact  that  nitrification  occurs  primarily  in  the  benthos,  it 
will  be  assumed  that  can  be  represented  as  a  function  of  the  discharge 

like  Equation  111. 

83.  Finally,  Kittrell  and  Furfari  (1963)  have  shown  that  coliform  bac¬ 

teria  decay  much  faster  in  small  than  in  large  streams,  and  they  attribute 
this  to  benthal  predation  upon  the  coliforms.  Their  conclusions  are  supported 
by  a  more  complete  study  by  Velz  (1970),  but  the  results,  again,  are  not 
clear-cut.  Velz's  summary  is  reproduced  in  Table  2,  and  it  will  be  noted  that 
the  Hudson  River  does  not  conform  to  Kittrell  and  Furfari' s  general  rule. 
Nevertheless,  since  coliform  decay  appears  to  be  a  benthal  process,  the  coli¬ 
form  decay  rate  will  be  assumed  to  vary  with  flow  like  in  Equation  111. 

Reaeration 

84.  The  user  has  the  option  to  use  either  Equation  111  or  a  constant 
for  biodegradable  decay  rates.  In  either  case,  the  decay  rates  are  corrected 
for  temperature. 

85.  Stream  reaeration  can  be  approached  in  a  similar  manner.  Since 
planktonic  decay  and  sedimentation  are  not  directly  involved,  the  analysis  is 
concerned  only  with  diffusion  through  the  surface  boundary  layer.  Churchill, 
Elmore,  and  Buckingham  (1962)  state  that  the  relevant  dimensional  groups  are: 


Stream  Reynold's  number  =  =  N^  (116) 

Molecular  Schmidt  number  =  — =  N„  (117) 

pDL  Scm  ' 

Turbulent  Schmidt  number  =  ~r-  =  N..  (118) 

pE  Set 

v 

Darcy-Weisbach  friction  factor  =  f  (119) 
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Table  2 

Collform  Death  Rates  K  Observed  in  Rivers* 

Chick’s  Law:  Log  (B/B  )  =  -Kt 

o 


Reaction 

Rate  K, 

day  ,  base  10 

River 

Warm 

Weather 

Cool 

Weather 

Authority  for 
Survey  Data** 

Remarks 

Ohio 

0.50 

0.45 

Frost  and 
Streeter 
(1924) 

Generalized  results 
of  analysis  of 
extensive  data 

Upper  Illinois 

0.90 

0.67 

0.32 

0.29 

Hoskins  et  al. 

1- day  decline 

2- day  decline 

Scioto 

0.96 

0.46 

Kehr  et  al. 

Hudson 

0.80 

Hall,  Riddick, 
Phelps 

Freshwater  reach 
below  Albany 

Upper  Miami 

0.80 

Velz,  Gannon, 
Kinney 

Mean  through  reach 
above  Dayton 

Tennessee 

0.46 

Kittrell 

1-  and  2-day 
declines,  below 
Knoxville 

Tennessee 

0.60 

0.57 

Kittrell 

1- day  decline 

2- day  decline 
(below  Knoxville) 

Sacramento 

0.77 

0.65 

Kittrell 

1- day  decline 

2- day  decline 
(below 

Sacramento) 

Missouri 

0.30 

0.26 

Kittrell 

1- day  decline 

2- day  decline 

(below  Kansas 
City) 


*  Fron  Velz  (1970)  (reproduced  by  permission  of  John  Wiley  &  Sons,  Inc., 
New  York) . 

**  Additional  bibliographical  information  may  be  found  in  Velz  (1970). 
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(120) 


0  R 

Ratio  of  the  Reynolds  number  =  mi  = 
to  the  Weber  number  w 


k2h 

Sherwood  number  =  -77-  =  N  ,  (121) 

U  sh 


where 

P  =  water  density 

U  =  cross  sectionally  averaged  stream  velocity,  length/time 
H  =  stream  hydraulic  depth,  length 
u  =  absolute  viscosity,  mass/ length/ time 

2 

=  molecular  diffusivity  of  oxygen  in  water,  length  /time 
=  vertical  turbulent  diffusivity,  area/time 
0  =  surface  tension,  force/length 
=  reaeration  rate,  1/time 

Dimensional  analysis  indicates  that  the  Sherwood  number  should  be  a  function 
of  the  other  groups.  Churchill,  Elmore,  and  Buckingham  (1962)  assumed  this 
function  could  be  written  as  a  simple  product: 


(122) 


where  a,  b,  c,  d,  e,  g,  i,  j  =  empirical  coefficients. 

86,  The  dimensionless  form  of  the  Sherwood  number  was  discarded  in 

b  q 

favor  of  the  ratio  K^H  /IIQ  .  Equation  122  and  several  modifications  of  it 

were  fitted  to  an  extensive  set  of  field  data  by  multiple  regression.  The 

rivers  used  were  the  Clinch,  Holston,  French  Broad,  Watauga,  and  Hiwassee,  all 

of  which  are  in  the  Tennessee  Valley  Authority  (TVA)  system.  The  mean  depths 

ranged  from  2.12  to  11,41  ft,  and  the  mean  velocities  ranged  from  1.85  to 

4.65  ft/sec.  The  regression  analysis  indicated  that  f  ,  N_  ,  N„  , 

K  bcm 

N_  „  ,  and  N„  had  little  influence  on  K_  for  these  data,  so  that  the  pre¬ 
set  W  L 

f erred  formula  was: 


K 


2 


11.61 


U 


0.969 


1.673 


H 


R2  =  0.676 


(123) 
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where 


=  reaerntioR  rate  coefficient,  per  day,  base  e,  20°  C 
U  =  mean  stream  velocity,  ft/sec 
H  =  mean  stream  depth,  ft 

It  may  be  noted  that  Equation  123  has  the  same,  form  as  the  formula  origi¬ 

nally  proposed  by  Streeter  and  Phelps  (1925).  The  model  was  base  e,  so  equa¬ 
tions  that  compute  in  base  10  should  be  multiplied  by  2.31  to  obtain 

base  e. 

87.  The  only  stream  characteristics  incorporated  into  Equation  122  are 
the  mean  velocity  and  depth;  other  variables  are  either  water  properties  (p, 
u,  a),  solute  properties  (B^ ) ,  or  derivatives  of  U  and  H  (f,  E^) .  The 
water  and  sclute  properties  function  as  mere  temperature  corrections.  The  one 
key  variable  neglected  by  Churchill,  Elmore,  and  Buckingham  (1962)  is  acceler¬ 
ation  caused  by  gravity,  g  .  If  this  variable  is  included.  Equation  122 
becomes  a  function  of  the  Froude  number  (N^  =  U//iH),  too.  However,  this 
does  not  change  the  fact  that  U  and  H  are  the  only  stream  characteristics 
included. 

88.  It  is  clear  that  all  K 2  theories  must  involve  ,  Npr  , 

N  ,  N  ,  N„  and  N_  and,  consequently,  that  all  theories  must  be 
Scm  Set  W 

reducible  to  a  function  of  V  and  H  .  If  the  Streeter-Fhelps  formula  for  K2 
is  adopted  (e.g.  Equation  123),  then  all  local  stream  properties  are  incorpo¬ 
rated  in  the  exponents  of  U  and  H  and  the  proportionality  coefficient. 
These  exponents  and  the  coefficient  thus  become  properties  of  individual 
stream  reaches  and  must  be  expected  to  vary  from  one  reach  to  the  next.  The 
very  large  number  of  formulas  in  use  shows  that  this  is  indeed  the  case 

(Brown  1974;  Wilson  and  Macleod  1974).  Covar  (1976)  has  recommended  that  each 
K2  formula  be  used  only  in  reaches  that  have  the  same  velocity  and  depth  as 
the  reaches  used  to  verify  the  formula.  His  recommendations  for  the  use  of 
three  formulas  are  shown  in  Figure  9.  Besides  Equation  123,  the  formulas 
studied  by  Covar  include  the  following  from  Owens,  Edwards,  and  Gibbs  (1964): 


K 


2 


21.74 


u°=67 

H1*85 


(124) 
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where 


K2  =  reaeration  rate  coefficient,  per  day,  base  e,  20°  C 
U  *  mean  velocity,  ft/sec 
H  =  mean  depth,  ft 

and  the  following  from  O'Connor  and  Dobbins  (1958): 

K2  -*5^-  (l«a) 


or 


(125b) 


N  =  N"1/2  •  N~1/?' 
Sh  Scm  R 


(125c) 


The  O'Connor-Dobbins'  equation  reduces  immediately  to  a  version  of  Equa¬ 
tion  122.  Any  consistent  set  of  units  is  permissible  in  Equation  122.  The 
calculated  ^  will  be  base  e  with  the  units  chosen  for  time  in  U  and  , 
and  it  will  apply  at  the  temperature  chosen  for  D.  .  The  value  of  D  is 

t\  L  L 

0.0019  ft  / day  at  20.0°  C.  With  this  value  for  D  and  correcting  for  time 

Li 

units,  Equation  125a  becomes 


K9  “ 


12.81  U 


1/2 


H 


3/2 


(125d) 


where  is  in  units  of  per  day,  base  e,  at  20°  C;  U  is  in  units  of  feet 

per  second  and  H  is  in  feet.  The  model  applies  stream  reaeration  equations 
like  Equations  123,  124,  and  3  25d  in  the  form 


K 


2 


AG  U 


El 


H' 


E2 


(126) 
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where  the  user  inputs  the  values  for  El  ,  E2  ,  and  AG  ;  AG  should  have 
—I  —El  E2 

units  of  day  fps  ft  for  base  e  and  20°  C.  The  model  performs  the 
conversion  to  SI  units. 

89.  The  statement  that  all  reaeration  rate  formulas  may  be  reduced  to  a 
form  like  Equation  122  includes  two  important  examples  that  deserve  separate 
mention.  The  first  method  (Velz  1939,  1947,  1970)  is  based  on  an  analysis  of 
the  diffusion  of  oxygen  into  quiescent  water  (Black  and  Phelps  1911).  Velz’s 
method  is  graphical,  because  the  Black-Phelps’  solution  expresses  the  rate  of 
reaeration  as  a  power  series.  However,  Deininger  (Velz  1970)  has  shown  that  a 
closed-form  solution  is  possible,  too.  After  some  manipulation,  the  closed- 
form  solution  yields: 


Rate  of  absorption 
per  unit  volume 


-  C) 


or,  clearly: 


(127) 


where 

t*  =  time  between  complete  mixes 

3 

C  =  saturation  concentration  of  oxygen,  mass/length 

S  3 

C  =  concentration  of  oxygen,  mass/length 

The  variable  t*  is  a  function  of  U  and  H  ,  although  Velz  assumes  it  is  a 

function  of  H  only.  This  is  a  reasonable  assumption,  since  H  is  much  more 

variable  than  U  .  It  must  be  noted  that  Velz’s  empirical  curves  for  t* 

were  derived  using  an  incorrect  value  for  D  ,  and  the  use  of  his  curves 

Li 

requires  that  his  b  value  be  used  also. 

Li 

90.  The  second  important  example  is  the  Tsivoglou-Wallace  (1972) 
equation: 


R. 

K2  =  0.054  -£ 


(128) 
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where 


K2  *=  reaeration  rate  coefficient,  per  day,  base  e,  20°  C 
=  total  head  loss  along  a  reach,  ft 
6  =  time  of  travel  along  the  reach,  days 
The  coefficient  in  Equation  128  has  units  of  ft  *  and  varies  inversely  with 
discharge.  The  value  given  is  a  typical  average  stream  value  (Tsivoglou  and 
Wallace  1972).  Churchill,  Elmore,  and  Buckingham  (1962)  have  shown  that  this 
is  merely  another  version  of  Equation  122,  as  may  be  illustrated  for  wide 
shallow  channels  in  the  f-'llowing  example.  From  the  Manning  equation,  one 
computes: 


S  = 


2  2 
n  U 


1.4862H4/3 


(129) 


where  it  has  been  assumed  that  H  is  nearly  equal  to  R  ;  S  is  the  energy 
gradient;  and  the  length  of  the  reach  is  0U  .  Solving  for  H^/®  and 
substituting  into  Equation  122  yields: 


K 


2 


U3 

h4/3 


(130) 


This  is  obviously  another  version  of  the  Streeter-Phelps'  formula. 

c 

91.  Since  all  K„  formulas  are  reducible  to  the  form  aU  / H  ,  they 

^  b 

are  also  reducible  to  the  form  aQ  ,  like  K,  and  K  .  However,  it  is 

1  n 

customary  to  leave  the  formulas  in  the  first  form. 

92.  The  stream  reaeration  formulas  discussed  above  account  for  gas 
transfer  resulting  from  stream  turbulence.  Wind-generated  turbulence  at  the 
air-water  interface  can  also  cause  gas  transfer  to/from  the  atmosphere.  To 
allow  for  this  effect,  a  wind-driven  reaeration  formulation  by  O'Connor  (1983) 
can  be  applied.  The  wind-driven  gas  transfer  rate,  (L/T)  ,  is  dependent 
upon  wind  speed,  air  temperature,  and  water  temperature  with  parameters  in  the 
model  set  for  small-scale  water  bodies.  Dividing  R^  by  depth  yields  a 
reaeration  coefficient  like  (1/T)  .  Another  popular  wind-driven  reaera¬ 
tion  formulation  is  that  of  Banks  (1975). 

93.  Surface  reaeration  can  be  augmented  by  structural  reaeration  as 
flow  passes  through  control  structures  (dams) .  Structural  reaeration  is 
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computed  with  the  energy  dissipation  model  (EDM)  (Wilhelms  and  Smith  1981), 
which  states 


D 


f 


V 


-cAh 


(131) 


where 

D ^  =  final  DO  deficit,  after  structural  reaeration,  mg/J. 

D^  =  initial  DO  deficit,  before  structural  reaeration,  mg/S. 
c  =  escape  coefficient,  1/ft 

Ah  =  change  in  water  surface  elevation  from  upstream  pool  to  tailwater, 
ft 

The  DO  deficit,  D  ,  is  expressed  as 

D  =  C  -  C  (132) 

sat 

where 

C  ^  =  saturation  concentration  of  DO,  mg/f. 
sat  ° 

C  =  actual  concentration  of  DO,  mg/ Z 

94.  Wilhelms  and  Smith  (1981)  recommended  that  for  gated  conduits  the 
value  of  the  escape  coefficient  at  20.0°  C,  C£q  ,  should  be  set  to 

0.045  ft  *.  The  idea  of  the  EDM  was  borrowed  from  the  Tsivoglou  and  Wallace 
(1972)  reaeratlon  model  for  streams.  Comparing  C£q  -  0.045  ft  *  with  the 
coefficient  in  Equation  128,  it  appears  that  structural  and  stream  reaeration 
exhibit  much  similarity.  There  is  a  temperature  correction  of  c 
(Equation  137). 

95.  Wilhelms  and  Smith  (1981)  suggest  that  flow,  geometry,  turbulence, 
and  other  factors  can  influence  structural  reaeration.  These  effects  can  be 
lumped  into  the  escape  coefficient.  Therefore,  C£q  can  vary  among  projects. 
Although  the  EDM  was  tested  on  gated  conduits,  it  gives  results  similar  to  the 
Holler  (1970)  model  for  spillways.  For  hydropower  structures,  it  would  be 
reasonable  to  assume  that  little  or  no  xeaeration  occurs  as  most  of  the  energy 
is  extracted  for  power  generation.  Caution  should  be  exercised  for  structures 
that  have  a  submerged  jump  in  the  tailwater,  thus  reducing  reaeration. 
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Temperature 


96.  Streeter  and  Phelps  (1925)  suggested  that  the  CBOD  decay  rates 
measured  in  bottles  could  be  corrected  for  temperature  by  the  following 
equation: 


K^T)  T-20 
Kl(20)  =  9c 


(133) 


where 

K^(T)  =  decay  rate  at  temperature  T 
T  =  incubation  temperature,  °C 
(20)  =  decay  rate  at  20°  C 
=  an  empirical  constant 

Equation  133  was  shown  by  Theriault  (1927)  to  be  an  approximation  of  the 
Arrhenius  rate  law.  Consequently,  6^  should  be  a  function  of  the  reaction's 
activation  energy,  the  gas  constant,  and  the  temperature.  Fortunately,  for 
small  temperature  ranges,  6c  is  nearly  constant.  Streeter  and  Phelps  (1925) 
reported  that  the  average  value  of  @c  over  the  range  10°  to  37.5°  C  was 
1.047.  Some  of  their  data  collected  between  10°  and  20°  C  yield  a  6c  value 
of  1.0524,  and  other  data  collected  between  24.5°  and  37°  C  yield  a  value  of 
1.01  and  1.135  for  4°  to  20°  C.  Theriault  reported  0^  values  of  1.053  and 
1.049  for  the  temperature  ranges  9°  to  20°  C  and  20°  to  30°  C,  respectively, 
and  concluded  that  the  mean  value  reported  by  Streeter  and  Phelps  was  adequate 
for  practical  purposes:  i.e.,  1.047. 

97.  Equation  133  can  be  extended  to  cover  nitrification  as  well: 


K  (T)  T-20 

B _ _  q 

K  (20)  °N 

n 


(134) 


Parker  et  al.  (1975)  and  Zison  et  al.  (1978)  have  published  reviews  indicating 
that  the  bottle  values  of  8^  range  from  about  1.055  to  about  1.12  for 
nitrification.  The  mean  of  the  reported  values  is  about  1.09,  which  seems  as 
good  an  estimate  as  any. 
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98.  Finally,  must  also  be  corrected  for  temperature,  unless  the 

C'Connor-Uobbins*  or  Black-Phelps*  formulas  are  used;  in  these  cases,  the 
temperature  correction  is  incorporated  in  DT  .  The  customary  correction 

Li 

formula  for  is: 


K_(T)  T-20 

_i -  =  0 

K2(20)  o 


(135) 


The  usual  value  chosen  for  is  1.024  (Elmore  and  West  1961).  The  diffus- 

ivities  of  oxygen  in  water  at  10°,  20°,  and  30°  C  are  1.38  x  10-5,  2.037 
-5  -5  2 

x  10  ,  and  2.85  x  10  cm  /sec,  respectively  (Camp  and  Meserve  1974).  Sub¬ 

stitution  of  these  values  into  the  0,Connor-i'>obbins,  formula  yields  an  effec¬ 
tive  of  1.020  between  10°  and  20°  C  and  1.017  between  20°  and  30°  C. 

Velz  (1970)  recommends  that  the  diffusivity  be  computed  s: 

Dl  =  (2.04  x  10-5)  *  1.04(T_20)  (136) 

where  is  the  diffusion  coefficient  of  oxygen  in  water  in  square  centi¬ 

metres  per  second.  The  Velz  correction  yields  a  value  of  1.04  for  . 

99.  Reaeration  accomplished  by  hydraulic  structures  is  also  affected  by 
temperature.  Wilhelms  and  Smith  (1981)  suggest  that  the  escape  coefficient, 
c  ,  be  corrected  for  temperature  by  the  following  equation: 

c(T)  =  c2Q  1 ,02(T-20)  (137) 
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PART  VI:  SCHEMATIC  MODEL  OF  RIVER  WATER  QUALITY 


100.  In  the  following  paragraphs,  the  mathematical  formulations  of  the 
sources  and  sinks  and  reaction  kinetics  for  various  water  quality  components 
are  presented.  The  most  significant  of  these  are  temperature  and  DO.  How¬ 
ever,  other  variables  are  also  included  because  of  their  effect  on  DO.  These 
variables  are  CBOD  and  organic  and  ammonia-nitrogen  (nitrification) .  The 
growth  and  decay  of  algae  and  macrophytes  are  also  modeled  to  complete  the  DO 
balance,  but  algae  and  macrophytes  are  not  state  variables.  Nitrite  plus 
nitrate-nitrogen  is  included  to  complete  the  nitrogen  cycle.  Phosphate- 
phosphorus  is  modeled  as  a  nutrient,  and  its  concentration  is  a  good  indicator 
of  stream  pollution.  Coliform  bacteria  are  also  included  as  a  modeled  vari¬ 
able  because  of  their  importance  as  an  indicator  of  stream  pollution.  The 
coliform  bacteria  variable  can  be  used  to  model  another  nonconservative  vari¬ 
able  or  a  conservative  variable  (by  setting  the  die-off  rate  to  zero) .  Dis¬ 
solved  iron  and  manganese  are  included  because  of  their  impact  in  streams 
below  dams  with  anoxic  hypolimnetic  releases.  Thus,  10  modeled  variables  are 
included;  the  ones  to  be  modeled  are  selected  by  the  user.  Each  variable  must 
be  transported  by  Equation  76.  Figure  10  shows  schematica  !y  how  the  vari¬ 
ables  interact. 


Temperature 

101.  It  is  necessary  to  account  for  the  effects  of  temperature  changes 
along  the  channel.  Either  cultural  inputs  such  as  power  plant  effluents  or 
natural  processes  are  responsible  for  such  potential  gradients.  In  addition 
to  its  intrinsic  value,  temperature  information  is  required  for  specification 
of  corrections  to  rate  coefficients.  Temperature  may  be  either  read  in  from 
existing  data,  thereby  precluding  model  predictability,  or  it  may  be 
calculated/predicted  from  the  solution  of  an  appropriate  thermal  energy  trans¬ 
port  equation. 

102.  The  transport  equation  (Equation  76)  developed  in  Part  IV,  is 
ussd  to  solvs  for  ssch  wstar  quality  variable*  cx  \  thus  for  tainparatura- 

a  =  T  -  The  specification  of  the  source/ sink  term  and  the  decay  term  of  Equa¬ 
tion  ?  ist  account  for  all  the  mechanisms  other  than  advection,  diffusion, 
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Figure  10.  CE-QUAL-RIV1  water  quality  compartmental  diagram 
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ADSORPTION 


and  lateral  inflows,  which  cause  net  transfers  of  energy  to  the  control 
volume . 

103.  In  general,  the  external  sources  and  sinks  (excluding  lateral 
inflows)  for  heat  are  described  by 


hn  =  Hs  +  \  -  he  -  hb  1  Hc 


(138) 


where 

H^  =  net  heat  transfer,  - heat  energy — 

N  surface  area  •  time 

Hg  =  net  short-wave  radiation 

R^  =  net  long-wave  radiation 

Hg  =  heat  loss  because  of  evaporation 

Rg  =  heat  loss  because  of  back  radiation  of  the  water 

=  heat  transferred  by  conduction  at  the  water  surface  and  the 
bottom 

104.  There  are  two  options  for  computing  .  In  the  first  option, 
each  term  in  Equation  138  is  computed  (i.e.,  subroutine  HEATFLUX)  and  added  to 
form  ,  which  is  converted  to  a  rate  of  temperature  change  by 

«N 


AT  = 


pCpH 


conv 


(139) 


where  AT  =  rate  of  temperature  change,  degrees/ time 

p  =  specific  mass  of  water,  — 

C  =  specific  heat  of  water,  ■  — -a-t-  e^ergy. 
p  r  mass  •  degree 

A 

H  =  hydraulic  depth,  -  ,  length 

D 

conv  =  conversion  factor  from  English  to  metric  units  (HEATFLUX 
performs  computations  in  English  units) 

The  variable  AT  is  used  for  the  SINKS  term  in  Equation  76,  and  the  K 

O 

term  is  zero.  The  algorithms  in  subroutine  HEATFLUX  are  based  on  those  used 
in  QUAL-II  (Roesner,  Giguere,  and  Evenson  1981)  to  compute  the  terms  in 
Equation  138.  The  computations  within  HEATFLUX  depend  on:  water  temperature, 
Tg  ;  time  of  year  and  day,  site  latitude,  longitude,  and  elevation;  and  local 
meteorological  data.  The  meteorological  data,  obtained  from  the  National 
Oceanic  and  Atmospheric  Administration  (NOAA) ,  consist  of  dry  and  wet  bulb  (or 
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dew  point)  temperatures,  wind  speed,  cloud  cover,  and  barometric  pressure. 

The  previously  computed  value  (previous  time-step)  is  used  for  Tc  .  Gen- 

b 

erally,  meteorological  data  are  collected  and  reported  in  1-  or  3-hr 
intervals.  This  method  is  referred  to  as  a  direct  energy  balance  because 
determination  of  the  full  terms  on  the  right  side  of  Equation  138  is  made 
within  the  simulation  in  contrast  to  the  alternative  heat  exchange  method. 

105.  The  alternative  method  uses  the  well-known  equilibrium  temperature 

approach,  as  developed  by  Edinger,  Duttweiler,  and  Ceyer  (1968)  and  Edinger, 

Brady,  and  Geyer  (1974),  to  account  for  the  effects  of  surface  heating  and 

radiation.  The  equilibrium  temperature  approach  is  based  on  the  concept  that 

heat  exchange  does  not  occur  when  the  water  temperature,  T  ,  equals  the 

b 

equilibrium  temperature,  T£  ;  thus,  1^  =  0  .  With  Tg  =  Tg  and  1^  =  0  , 
the  terms  on  the  right  side  of  Equation  138  can  be  expressed  in  terms  of  T  , 

E 

and  Tg  can  be  solved  iteratively.  Net  heat  transfer,  ,  is  computed  from 

"N  -  h  «E  -  V  <140> 

where  Kg  is  the  heat  exchange  coefficient  (heat  energy/surface  area/time/ 
degree) .  The  variable  Kg  can  also  be  solved  through  manipulation  of  Equa¬ 
tions  138  and  140.  With  Tg  and  Kg  known  a  priori  and  using  Tg  from  the 
previous  time-step,  (and  j\T)  can  be  determined.  Using  a  computer  program 

with  the  same  meteorological  data  used  for  the  direct  energy  balance,  T„  and 
Kg  are  computed  Independent  of  the  simulation.  This  program  can  be  obtained 
from  WES  or  the  Hydrologic  Engineering  Center  (HEC) .  A  description  of  the  T_, 
and  Kg  computation  is  given  in  Edinger,  Brady,  and  Geyer  (1974). 

106.  If  the  equilibrium  temperature  approach  is  used,  the  model  uses  a 

single,  constant  value  for  Tg  and  Kg  .  Thus,  temperature  is  modeled  with  a 

constant  meteorological  forcing.  The  computations  of  T_  and  K_  in  the  WES 

E  E 

and  HEC  program  are  based  on  daily  average  values  for  meteorological  data; 

thus  daily  average  values  of  Tg  and  Kg  are  produced.  Daily  average  values 

for  T  and  K  are  adequate  for  reservoir  thermal  simulations  but  may  not 

be  adequate  for  riverine  applications  where  diel  fluctuations  are  important. 

In  these  cases,  the  direct  energy  balance  method  should  be  used.  The  T_  and 

E 

Kg  program  can  be  modified  to  calculate  Tg  and  Kg  values  that  are  commen¬ 
surate  with  the  meteorological  data  update  interval  (i.e.,  1-  or  3-hr 

intervals) . 
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107.  By  inspection  of  Equation  140,  the  Kg  coefficient  of  Equation  76 
is  K„  (KTS  in  the  code)  and  the  SINKS  term  is  K  T  (KTS*TEQ  in  code) . 

Cj  DC 

Thus,  KTS  is  converted  to  units  of  per  time  (per  day)  by  dividing  by  (pcpH) 
with  the  proper  conversion  units. 

108.  Either  heat  exchange  method  can  be  augmented  with  bottom  heat 
transfer  by  adding  the  term  Kg  (TSINK  -  Tg)  where  TSINK  is  the  bottom/ 
ground  temperature  in  degrees  and  K0  is  the  bottom  heat  transfer  coefficient 

D 

in  units  of  per  day.  In  this  case,  K„  and  TSINK  must  be  specified,  the 

D 

Kg  term  of  Equation  76  is  incremented  by  Kg  (KTB  in  the  code),  and  the 
SINKS  term  of  Equation  76  is  incremented  by  Kg*TSINK  . 

109.  Future  developments  for  this  model  should  include  incorporating 
mechanisms  to  allow  for  shading  as  this  effect  can  be  significant  for  small 
streams.  Additionally,  consideration  should  be  given  to  allow  the  solar 
radiation  that  passes  through  the  water  column  (for  clear,  shallow  streams)  to 
be  absorbed  by  the  bottom,  thus  providing  bottom  warming  later.  At  present, 
all  solar  radiation  is  absorbed  by  the  water  column. 

Carbonaceous  Biochemical  Oxygen  Demand 


110.  The  CBOD  represents  (as  oxygen  equivalents)  the  amount  of 
biodegradable  organic  matter  present,  not  counting  organic  nitrogen.  The 
model  calculates  on  the  basis  of  the  ultimate  first-stage  biochemical  oxygen 
demand  (BOD)  (i.e.,  CBOD),  and  input  to  the  model  must  also  be  CBOD's.  If 
BODg  data  are  available,  these  must  be  converted  to  CBOD  by  the  following 
formula: 


CBOD  = 


bod5 

1  -  exp  (-5K) 


(141) 


where 

3 

CBOD  =  ultimate  first-stage  (carbonaceous)  BOD,  g/m 

3 

BOD,.  =  5-day  (carbonaceous)  BOD,  g/m 
K  =  bottle  BOD  decay  rate,  day  1 
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The  BOD,,  should  be  determined  using  nitrification-inhibited  samples  to  avoid 
double  counting  of  the  NBOD.  If  bottle  K  values  are  not  available  for  the 
wastewater  at  hand,  they  may  be  approximated  using  Figure  7. 

111.  The  CBOD  is  oxidized  by  the  heterotrophic  flora  of  the  benthos 
using  either  oxygen  or  nitrate  as  the  terminal  electron  acceptor.  The  latter 
process  is  called  denitrification.  In  this  model,  it  is  assumed  that  oxygen 
is  the  terminal  electron  acceptor  at  high  DO's  and  nitrate  at  low  DO's.  Thus, 
the  basic  reaction  for  CBOD  is  (in  FORTRAN  for  convenience): 


Rate  of  CBOD 
oxidation 


=  -(Kl  +  KDN)*CBODNS 


(142) 


where 

Kl  =  rate  coefficient  for  aerobic  oxidation  of  CBOD,  day  ^ 

KDN  =  rate  coef f icient^for  nitrate  reduction  and  anaerobic  CBOD 
oxidation,  day 

3 

CBODNS  =  concentration  of  nonsettleable  CBOD,  g  02/m 
In  the  present  model,  only  the  nonsettleable  CBOD  is  considered  explicitly. 

The  removal  and  oxidation  of  settleable  CBOD  and  the  formation  and  scour  of 
sludge  deposits  could  be  considered  in  future  modifications.  However,  the 
previous  discussion  on  the  effects  of  turbulence  suggests  that  CBODNS  may  be 
regarded  as  the  total  CBOD  as  long  as  localized  sludge  deposits  do  not  form. 

It  should  be  realized  that  K  is  Kl  +  KDN  ,  SINKS  is  zero,  and  a  is 
CBODNS  in  Equation  76  by  inspection  of  Equation  142. 

112.  The  rate  coefficients  Kl  and  KDN  are  presumed  to  be  functions 
of  the  degree  of  turbulence,  the  ambient  water  temperature,  the  local  DO,  and 
the  local  nitrate  concentration.  The  optional  turbulence  dependence  is  taken 
from  Wright  and  McDonnell  (1979),  with  the  additional  assumption  that  all  rate 
coefficients  depend  on  the  same  power  of  the  flow.  The  temperature  correction 
is  taken  from  Streeter  and  Phelps  (1925) ,  as  is  customary  although  arguable. 
The  coefficient  Kl  is  assumed  to  increase  with  DO  according  to  a  simple 
Monod  function  (cf.  Hoover  and  Porges  1952),  and  the  coefficient  KDN  is 
assumed  to  decrease  according  to  an  analogous  formula.  The  coefficient  KDN 
is  also  assumed  to  depend  on  nitrate  in  the  same  way  that  Kl  depends  on 
oxygen. 
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K1  =  (AK1*Q**BK) *(1.047** (TEMP-20 . ) ) * (DO/ (DO+KOCB 1 ) ) 


(143) 


KDN  =  (ADN*Q**BK) *(1.047** (TEMP-20 . ) ) * 

(KOCBDN/ (DO  +  KOCBDN) ) * (N03N/ (N03N  +  KNCBDN) )  (144) 


where 

AK1,  ADN  =  empirical  coefficients  reflecting  the  diffusivity  and  reac- 

—  1  ^  — T^K 

tivity  of  the  CBOD  (day  •  (m  / day)  ).  If  the  turbu¬ 

lence  option  is  not  used,  then  the  units  of  reactivity  are 

day  ^ . 

3 

Q  =  stream  flow,  m  /day 

BK  =  empirical  exponent  reflecting  the  thickness  of  the  benthal 
boundary  layer,  dimensionless 

TEMP  =  T_  =  the  ambient  stream  temperature,  °C 

°  3 

DO  =  local  stream  oxygen  concentration,  g  02/m 

KOCB1  =  Monod  half-velocity  constant  for  oxygen-limited  aerobic 

„  .  3 

systems,  g  0„/m 

1  3 

KOCBDN  =  denitrification  inhibition  half-velocity  constant  g  09/m~ 

3 

N03N  =  local  nitrate-nitrogen  concentration,  g  N/m 

KNCBDN  =  Monod  half-velocity  constant  for  nitrate-limited  denitri- 

3 

fication,  g  N/m 

If  the  turbulence  option  is  not  used,  then  the  term  Q**BK  is  set  to  1.0.  No 
provision  for  fermentation  has  been  provided,  so  in  the  absence  of  oxygen  and 
nitrate,  there  is  no  CBOD  removal. 

Forms  of  Nitrogen 

113.  The  forms  of  nitrogen  (N)  recognized  by  the  model  are  organic 
nitrogen,  ammonia,  and  nitrate.  Nitrite  is  not  considered  because  the  overall 
rate  of  nitrification  is  ammonia  limited  (Parker  et  al.  1975),  and  stream 
surveys  do  not  discover  significant  increases  in  nitrite  in  nitrifying  reaches 
(Garland  1978,  Miller  and  Jennings  1979). 

Organic  nitrogen 

114.  Organic  nitrogen  is  a  constituent  of  the  organic  matter  that  gives 
rise  to  the  CBOD,  although  it  is  not  part  of  the  CBOD  itself.  For  pure 
compounds,  it  is  well  known  that  their  constituent  nitrogen  is  released  as 
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ammonia  during  the  exertion  of  the  CBOD.  This  release  suggests  that  the  rate 
coefficient  for  the  conversion  of  organic  nitrogen  to  ammonia  is  simply  K1 
or  KDN  : 


Rate  of  hydrolysis 
of  organic  nitrogen 


=  - (Kl+KDN) *0RGAN 


(145) 


where,  ORGAN  is  the  concentration  of  organic  nitrogen,  grams  of  nitrogen  per 
3 

cubic  metre  (g  N/m  ). 

115.  Although  Equation  145  is  conceptually  appealing  and  is  actually 
used  in  the  model,  it  may  be  questioned  whether  the  measured  organic  nitrogen 
in  streams  undergoes  any  net  removal.  For  example,  Ruane  and  Krenkel  (1977) 
have  published  data  for  the  Holston  River  that  exhibit  little  change  in 
organic  nitrogen  even  in  rapidly  nitrifying  reaches.  Therefore,  in  some  field 
applications  organic  nitrogen  may  be  regarded  as  inert  and  deleted  from  the 
model.  If  organic  nitrogen  hydrolysis  does  occur,  the  model  computes  the 
hydrolysis  rate  coefficients  from  Equations  143  and  144. 

Ammonia 

116.  Ammonia  increases  because  of  (a)  the  hydrolysis  of  organic  nitro¬ 
gen  (if  it  occurs)  and  (b)  algal  and  macrophyte  decay.  It  decreases  because 
of  (a)  nitrification,  (b)  algal  and  macrophyte  uptake,  and  (c)  ion  exchange. 

117.  The  increase  in  ammonia  because  of  organic  nitrogen  hydrolysis  is 
represented  by  Equation  145,  with  the  minus  sign  changed  to  a  plus  because  the 
process  is  a  source  of  ammonia. 

118.  The  rate  of  increase  resulting  from  algal  and  macrophyte  decay  is 
taken  to  be  proportional  to  the  rate  of  decay  of  the  plants.  The  nitrogen 
content  of  algae  is  riously  reported  as  7  to  10  percent  by  weight  (Foree  and 
McCarty  1968,  MacKenthum  and  Ingram  1967),  whereas  the  nitrogen  content  of 
macrophytes  is  only  2  to  4  percent  by  weight  (MacKenthum  and  Ingram  1967 , 
Gerloff  1969).  Assuming  algae  are  dominant  and  a  nitrogen  content  of  7.5  per¬ 
cent  (Foree  and  McCarty  1968) : 


Rate  of  increase  of  ammonia-N 
caused  by  algal  decay 


+0.075*ALGADK 


(146) 
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where  ALGADK  is  the  rate  of  algal  decay,  grams  of  algae  per  day  per  cubic 

3 

metre  (g  algae/day/m  ) .  It  may  be  noted  that  all  the  algal  N  is  assumed  to 
be  released  upon  decay  of  the  cell  (cf.  Foree  and  McCarty  1968,  Jewell  and 
McCarty  1968) .  The  algal  decay  rate  itself  is  considered  in  greater  detail  in 
the  following  paragraphs. 

119.  The  rate  of  ammonia  decrease  because  of  nitrification  is  assumed 
to  be  first  order: 


Rate  of  nitrification 
of  ammonia-N 


-KN*NH3N 


(147) 


where 

KN  =  nitrification  rate  coefficient,  day 

3 

NH3N  =  ammonia -N  concentration,  g  N/m 
The  rate  coefficient  KM  is  assumed  to  depend  on  turbulence  (optional) , 
oxygen,  and  temperature  in  a  way  similar  to  K1  : 

KN  =  (AKN*0**BK) *(1.1** (TEMP-20))* (DO/ (DO+KON))  (148) 

where 

AKN  =  empirical  coefficient  reflecting  the  diffusivity  and  reactivity 

— 1  3  _bK 

of  ammonia,  day  •  (m  /day)  ;  if  the  turbulence  option  is 

not  used,  then  the  units  of  reactivity  are  day  *  and  Q**BK 
equals  1.0 

KON  =  Monod  half-velocity  constant  for  oxygen  limitation  of 

3 

nitrification,  g 

The  form  of  the  oxygen  limitation  factor  is  suggested  by  the  data  summarized 
by  Parker  et  al.  (1975).  Considering  the  reported  variance  in  the  temperature 
correction  factor,  0^  ,  it  has  been  rounded  to  two  significant  figures.  A 
correction  for  pH  has  not  been  incorporated  because  of  the  width  of  the 
optimum  range  (about  pH  7  to  9  according  to  Parker  et  al.  (1975)).  This 
feature  might  h^ve  to  be  changed  if  the  model  is  to  be  applied  to  soft  water 
or  acid  streams. 

120.  The  rate  of  uptake  of  ammonia  nitrogen  caused  by  algal  and  macro¬ 
phyte  growth  is  entirely  analogous  to  Equation  146.  However,  in  this  case  it 
is  assumed  that  the  plants  can  use  both  nitrate  and  ammonia.  The  total 
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nitrogen  consumption  rate  is  partitioned  between  these  two  forms  in  proportion 
to  their  relative  concentrations: 


Rate  of  ammonia-N  decrease 
due  to  algal  uptake 


-0.075* (NH3N/ (NH3N+N03N) ) *ALGR0  (149) 


where 

3 

N03N  =  concentration  of  nitrate  nitrogen,  g  N/m 

3 

ALGRO  =  reproduction  rate  of  algae,  g  algae/day/m 
The  partitioning  function  was  introduced  primarily  to  avoid  double  counting  of 
nitrogen  uptake  by  plants.  More  sophisticated  selectivity  factors  (e.g., 
O'Connor,  Thomann,  and  DiToro  1973;  Baca  and  Arnett  1976;  DiToro  et  al.  1977) 
were  not  used,  because  there  does  not  appear  to  be  any  empirical  data  or 
theory  that  warrants  the  use  of  such  factors  in  models  that  lump  all  the  pho¬ 
tosynthetic  flora  together.  This  is  not  meant  to  deny  that  nutrient  selection 
occurs  in  some  pure  cultures. 

121.  Finally,  a  term  for  physicochemical  sorption  of  ammonia  by  the 
sediments  is  included.  The  need  for  such  a  process  is  shown  by  the  data  of 
Ruane  and  Krenkel  (1977),  Donigan  and  Crawford  (1979),  and  Miller  and  Jennings 
(1979).  The  first  two  reports  recorded  losses  in  total  inorganic  nitrogen 
along  well-aerated  nitrifying  reaches  of  about  one-third  to  two-thirds  of  the 
total  input.  Ruane  and  Krenkel  (1977)  also  produced  plant  biomass  data  that 
suggested  nitrogen  uptake  by  plants  was  relatively  small  and  inadequate  to 
account  for  the  observed  losses.  The  diel-average  oxygen  levels  in  all  three 
studies  ranged  from  2  to  8  mg / S.  in  the  reaches  studied,  so  denitrification  may 
not  have  been  substantial  either.  Moreover,  sediment  analyses  reported  by 
Donigan  and  Crawford  (1979)  show  that  in  at  least  two  small  streams  most  of 
the  ammonia  in  the  water-sediment  system  is  in  the  sediments. 

122.  It  may  be  noted  that  most  nitrification  studies  report  only 
ammonia  losses,  and  the  computed  KN  in  these  studies  is  derived  only  from 
the  ammonia  data.  It  is  clear  that  these  KN's  include  all  effects  of 
nitrification,  algal  uptake,  and  ion  exchange  and  that  the  amount  of 
nitrification  occurring  is  generally  overstated. 

123.  The  representation  adopted  for  ammonia  sorption  by  sediment  is  a 
simple  first-order  decay,  like  that  for  CBOD: 
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Rate  of  sorption  of 
ammonia-N  by  sediments 


=  -KNX*NH3N 


(150) 


where  KNX  is  the  sorption  rate  coefficient,  per  day.  The  rate  coefficient 
KNX  is  presumed  to  be  a  function  of  both  turbulence  (optional)  and 
temperature. 


KNX  =  (AKNX*Q**BK)*( 1.025** (TEMP-20.))  (151) 


where 

AKNX  =  empirical  coefficient  reflecting  the  diffusivity  and 

1  3  —BK 

reactivity  of  ammonia,  day  •  (m  /day)  ;  if  the  turbulence 

option  is  not  used,  then  the  units  of  reactivity  are  day  *  and 
Q**BK  equals  1.0. 

124.  The  combined  ammonia-N  reactions  may  be  written  as 


Rate  of  accumulation  of  ^ 

ammonia-N  due  to  reaction  (gN/m  /day) 


(Kl+KDN) *0RGAN+0 . 07  5*ALGADK 


-0.075* (NH3N/ (NH3N+N03N) ) *ALGR0- (KN+KNX) *NH3N  (152) 


In  Equation  152,  the  coefficient  of  the  last  term  is  Kg  and  the  remaining 
terms  make  up  SINKS  of  Equation  76. 

Nitrate 

125.  Nitrate  is  formed  by  nitrification  and  removed  by  denitrification 
and  plant  uptake.  Thus,  the  relevant  formulas  are  Equations  142  (less  Kl) , 
and  Equation  147  (with  the  sign  reversed) ,  plus  a  term  Incorporating  ALGRO  : 


Rate  of  accumulation 
3 

on  nitrate-N  (gN/m  /day) 


-0 . 35*KDN*CB0DNS+KN*NH3N 

-0 . 07 5* ALGRO* (N03N/ (NH3N+N03N) ) 


(153) 


All  terms  in  Equation  153  are  in  the  SINKS  term  of  Equation  76  and  Kg  is 
zero. 

126.  The  coefficient  0.35  is  a  conversion  factor  for  oxygen  to  nitrogen 
equivalents  and  is  evaluated  as  follows.  The  half  cell  reaction  for  nitrate 
reduction  is 
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(154) 


6H+  +  N0“  +  5e“  =  -N2  +  3H20 

Therefore,  the  equivalent  weight  of  nitrate  nitrogen  is  2.8  g.  The  equivalent 
weight  of  oxygen  is  8.0  g,  and  the  mass  of  nitrogen  equivalent  to  1  g  of 
oxygen  is  0.35  g. 

127.  Wheatland,  Barrett,  and  Bruce  (1959)  presented  some  interesting 
data  regarding  nitrification  and  denitrification  in  the  Thames  Estuary. 

First,  denitrification  occurred  only  in  reaches  with  a  DO  below  about  1  mg/i, 
a  finding  they  supported  with  laboratory  data.  More  importantly,  however, 
they  showed  that  in  the  Thames  the  total  inorganic  nitrogen  concentration 
declined  from  about  9  to  about  3  rag/?  in  a  15-mile  reach  nearly  devoid  of  both 
oxygen  and  nitrate.  While  this  decline  might  be  interpreted  as  algal  uptake, 
the  depth  and  turbidity  of  the  Thames  argue  against  it,  and  the  observed 
nitrogen  losses  might  be  due  to  simultaneous  nitrification  and  denitrification 
at  very  low  DO. 

128.  More  recently,  the  studies  of  Williams  and  Lewis  (1986)  support 
the  idea  that  nitrification  and  denitrification  occur  simultaneously  because 
of  processes  within  the  sediments.  Additionally,  Hill  and  Sanmugadas  (1985) 
showed  that  denitrification  rates  were  significantly  correlated  to  stream- 
sediment  characteristics;  this  correlation  helps  to  explain  why  recent  studies 
have  revealed  considerable  nitrate  loss  even  during  transport  in  well- 
oxygenated  streams.  Thus,  denitrification  via  the  water-sediment  interface 
should  be  considered  as  a  future  development  for  this  model. 

Algae  and  Macrophytes 

129.  For  convenience,  all  algae  and  macrophyte  processes  are  lumped 
together.  Their  effects  on  state  variables  are  included,  but  they  are  not 
modeled  as  state  variables.  Furthermore,  the  plants  are  assumed  to  be  benthal 
and  light-limited.  This  last  assumption  is  defensible  for  small  streams 
overhung  by  forest  canopy  and  for  turbid  streams,  both  of  which  are  common. 
However,  the  user  can  optionally  elect  to  prevent  algal/macrophyte  growth  if 
phosphorus  or  nitrogen  are  absent  from  the  water.  If  the  user  wishes  to  use 
this  simplistic  nutrient  limitation,  then  statements  identified  in  the  code 
must  be  commented/uncommented. 
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130.  The  plant  growth  rate,  ALGRO  (g  algae/m  /day),  is  taken  to  be 
the  product  of  the  benthal  algal /macrophyte  density,  the  local  light  intensity 
(corrected  for  attenuation  en  route),  and  a  reaction  rate  coefficient.  To 
further  simplify  the  analysis,  the  stream  cross  section  is  approximated  as  a 
rectangle,  as  shown  in  Figure  11.  Thus,  the  plant  growth  is  distributed  along 
the  channel  bottom  and  sides. 


Plant  growth  per 
unit  length  of  channel 


Bottom 

growth 


growth 


where 


ALGRO  =  (B*KALGRO*SWALG*EXP(-KEXT*H)*ALGAEB 
+  (2 . /KEXT) *KALGRO*SWALG* ( 1 . -EXP (-KEXT*H) ) ALGAEB) /A 

B  =  stream  top  width,  m 


(155) 


(156) 


KALGRO  =  plant  growth  rate  coefficient,  m  /watt/day 

SWALG  =  light  intensity  (net  short-wa\e  radiation)  at  the  water  surface, 
2 

watt/m 

KEXT  =  light  extinction  coefficient  for  the  particular  reach,  m  1 
H  =  hydraulic  depth,  m 

2 

ALGAEB  =  plant  density  on  the  bottom,  g/m 

2 

A  =  channel  cross-sectional  area,  m 

The  first  term  on  the  right-har.d  side  of  Equation  156  Includes  the  light 
intensity  on  the  bottom  fSWALG*EXP(-KEXT*H)) .  The  second  term  is  the  summa¬ 
tion  of  the  plant  growth  occurring  at  all  depths  on  both  (vertical)  sides: 


o  WATER  SURFACE  kv 

— - — - roc 


n-m 


Figure  11.  Channel  geometry  assumed  for  calcu¬ 
lation  of  algal/macrophyte  growth/decay 
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ALGRO 


sides 


2 . *KALGRO*ALGAEB*SWALG* 


EXP(-KEXT(H-Z) )*dZ 


(157) 


To  account  for  iiel  effects,  the  surface  light  intensity  (net  short  wave 
radiation)  is  computed  as  a  function  of  the  time  of  day.  This  is  accomplished 
in  subroutine  HEATFLUX  if  the  direct  heat  balance  option  is  used;  otherwise, 
the  following  relation  is  used: 

SWALG  =  HNEFSW*SIN (PI* (CLOCK-DAWN) /LAMBDA)  (158) 


where 

2 

HNEFSW  =  maximum  surface  light  intensity  at  local  noon,  watts/m 
PI  =  3.14159... 

CLOCK  =  actual  time  of  day,  24-hr  clock 
DAWN  =  time  of  local  dawn,  24-hr  clock 
LAMBDA  =  elapsed  time  between  local  dawn  and  local  sunset,  hr 

131.  The  elimination  of  nutrient  effects  on  ALGRO  is  supported  by  the 
studies  of  Beck  and  Young  (1975)  on  the  River  Cam  in  England.  By  introducing 
a  term  into  the  oxygen  balance  equation  proportional  to  the  total  hours  of 
sunlight,  they  were  able  to  closely  simulate  an  80-day  time  series  of  oxygen 
data.  They  did  not  consider  short-term  variations  of  less  than  24  hr.  By 
comparison,  a  traditional  Streeter-Phelps  model  without  an  "algal"  term  did 
not  simulate  the  same  field  data  as  well.  Moreover,  Beck  and  Young  (1975) 
also  found  it  uecessary  to  introduce  a  similar  sunlight  term  into  the  BOD,. 
balance  equation,  which  suggests  that  "algae"  manufacture  BOD  as  well  as  DO. 
The  present  model,  however,  does  not  include  an  algal  contribution  to  the 
stream’s  CBOD. 

132.  As  Beck  and  Young  (1975)  noted,  streams  subjected  to  wastewater 
discharges  are  likely  to  have  high  nutrient  concentrations  and  are  also  likely 
to  be  turbid.  Both  these  conditions  are  reversed  in  lakes,  so  that  the  lake 
plankton  are  often,  if  not  usually,  nutrient-  rather  than  light-limited. 

Thus,  lake  models  almost  always  Include  nutrients  in  the  xormula  for  the  algal 
growth  rate.  Of  course,  macrophytes  obtain  their  nutrients  from  the  sediments 
(Bole  and  Allan  1978,  Carignan  and  Kalff  1980),  so  stream  nutrient  levels  are 
irrelevant  to  macrophyte  growth. 
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133.  A  rather  simplistic  nutrient  limitation  procedure  is  included  in 
the  model  code,  if  the  user  elects  to  use  it.  This  procedure  sets  ALGRO 

=  0.0  for  segments  void  of  phosphorus  or  nitrogen  in  the  water.  Future  code 
improvements  may  allow  implementation  of  a  more  rigorous  nutrient  limitation 
procedure. 

134.  Algae  and  macrophytes  are  presumed  to  decay  continuously.  The 
decay  is  supposed  to  cease  at  low  DO  levels.  Because  of  the  lack  of 
reasonably  precise  data,  no  temperature  correction  is  attempted.  The  decay 
rate  is  represented  as: 

ALGADK  =  KALGDK*ALGAEB* (B+2 . *H) / ( 1 .+K0ALDK/D0) / A  (3  59) 


where 

KALGDK  =  plant  decay  rate,  day 

KOALDK  =  Monod  half-velocity  constant  for  oxygen  limitation  of 

3 

plant  decay,  g  O^/m 

Oxygen 

135.  The  sources  of  oxygen  (0)  are  reaeration  and  photosynthesis;  the 
sinks  are  the  exertion  of  CBOD,  nitrification,  plant  respiration,  and  the 
oxidation  of  reduced  iron  and  manganese.  The  present  model  represents  plant 
photosynthesis  and  decay  as  algal  photosynthesis  and  decay.  The  stoichiometry 
of  these  processes  is  based  on  the  data  of  Foree  and  McCarty  (1968)  and 
depends  on  whether  ammonia  or  nitrate  is  involved. 


132  C0„  +  16  NH„  +  HoP0. 
2  3  3  4 

132  C0„  +  16  HN0„  +  H„P0. 
2  3  3  4 


177 


Hq0  = 


C  H  O  N  V 

132  228  58  16 


597 


+  2  H20  c132H228°58N16?  4  4  °2 


(160) 

(161) 


The  oxygen  production  Indicated  by  Equation  160  is  1-59  g  0  /g  algae;  and  that 
indicated  by  Equation  161  is  1.94  g  O^/g  algae.  Therefore,  the  rate  of  oxygen 
production  by  photosynthesis  depends  upon  the  relati,,e  proportions  of  ammonia 
and  nitrate  consumed: 
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Rate  of  oxygen  production 
by  photosynthesis  per  unit 
volume 


=  +( 1.59+0. 35* (N03N/(N03N+NH3N)))*ALGR0  (162) 


136.  The  rate  of  oxygen  consumption  resulting  from  algal  decay  does  not 
involve  nitrification,  so  it  is  the  reverse  of  Fquation  160: 


Pate  of  oxygen  consumption  by 
plant  decay  per  unit  volume 


-1.59*ALGADK 


(163) 


137.  The  rate  of  oxygen  consumption  resulting  from  CBOD  decay  is  equal 
to  the  rate  of  CBOD  decay,  because  of  the  definition  of  CBOD.  This  rate  is 
given  by  Equation  142  (without  KDN) ,  and  K1  is  computed  from  Equation  143. 

138.  The  rate  of  oxygen  consumption  resulting  from  ammonia  oxidation  is 

'based  on  Equations  147  and  148.  Since  the  units  of  the  SINK  term  are 
3 

g  N/m  / day,  a  conversion  factor  is  required.  This  is  computed  from 
Equation  164: 


NH3  +  2  02  =  HN03  +  H20 


(164) 


The  oxygen  consumption  here  is  4.57  g  0.2/g  N.  Some  authors  prefer  a  value  of 
4.33  g  02/g  N’  ar8uing  that  some  of  the  ammonia  consumed  by  the  nitrifiers 
goes  into  cell  synthesis  (Garland  1978).  However,  the  nitrifiers  are  them¬ 
selves  subject  to  predation,  which  returns  the  incorporated  ammonia  back  to 
the  stream  for  further  nitrification.  The  actual  amount  of  ammonia  removed 
or  nitrified  is  unknown,  but  the  difference  between  4.57  and  4.33  is  insig¬ 
nificant  when  one  considers  the  usual  accuracy  of  field  data.  Therefore,  the 
higher  figure  has  been  chosen,  because  it  is  somewhat  conservative. 

139.  The  rate  of  oxygen  uptake  resulting  from  stream  reaeration  can  be 
formulated  as: 


Rate  of  reaeration  =  K2*(d0SAT-D0) 
per  unit  volume. 


(165) 


where 

K„  =  reaeration  rate  coefficient,  day  * 

^  3 

DOSAT  =  local  solubility  of  oxygen,  g  0„/m 

3 

DO  =  local  oxygen  concentration,  g  02/m 
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As  discussed  in  Part  V,  all  K2  equations  may  be  rearranged  to  the  following 
form: 


K2  =  AG* (U**E1 ) / (H**E2) * ( 1 .024** (TEMP-20 , ) )  (166) 


where 

AG,  El,  E2  =  empirical  coefficients 

In  using  Equation  166,  it  must  be  noted  that  AG  is  sometimes  given  for 
25°  G.  For  those  who  prefer  the  Tsivoglou-Wallace  (1972)  equation  in  its  pub¬ 
lished  form,  provision  has  been  made  in  the  program  to  permit  its  use  as  an 
option: 

K2  =  TSIV*(E(I-1)-E(I) ) / (DX/U)*1 .024** (TEMP-20)  (167) 

where 

TSIV  =  empirical  coefficient,  m  *  (the  value  is  entered  in  units  of 
ft  ^  and  converted) 

E(I-l),  E(I)  -  water  surface  elevations  at  the  upstream  and  downstream  ends 
of  the  reach  under  consideration,  m 

DX  =  length  of  the  reach,  m 

U  =  reach  stream  velocity,  m/day 

In  using  Equation  167,  it  must  be  noted  that  TSIV  is  sometimes  given  for 
25°  C.  As  discussed  in  Part  V,  the  model  can  also  account  for  structural  and 
wind-driven  reaeration. 

140.  The  solubility  of  oxygen  in  water  is  calculated  using  the 
following  formula  (Elmore  and  Hayes  1960): 

DOSAT  =  14.652  +  (-0.41022  +  (0.007991  -  0.000077774*TEMP)*TEMP)*TEMP  (168) 

141.  The  oxidation  of  reduced  iron  (FE)  and  manganese  (Mn)  is  con¬ 
sidered  to  occur  as  a  first-order  reaction,  as  discussed  in  para¬ 
graphs  147-149.  Accounting  for  stoichiometric  conversions,  the  oxygen  used 
during  oxidation  of  reduced  iron  and  manganese  is 
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=  -0 . 14*KFEDK*FE-0 . ] 5*KMNDK*MN 


(169) 


Rate  of  oxygen  used 
for  oxidation  of  Fe 
3 

and  Mn,  g  O2/111  /day 

« 

where 

KFEDK  =  oxidation  rate  for  iron,  day 

3 

FE  =  concentration  of  reduced  iron,  g/m 
KMNDK  =  oxidation  rate  for  manganese,  day  * 

3 

MiJ  =  concentration  of  reduced  manganese,  g/m' 

142.  The  complete  balance  of  DO  reactions  is: 


Rate  of  accumulation 
of  dissolved  oxygen, 
3 

g  02/m  /day 


K2* (DOSAT-DO) -Kl*CB0DNS-4 . 57*KN*NH3N 


+(1.59+0.35* (N03N/ (N03N+NH3N) ) ) *ALGR0-1 . 59*ALGADK 


-0 . 14*KFEDK*FE-0 . 15*KMNDK*MN 


(170) 


Phosphorus 


143.  The  presumed  sinks  for  phosphorus  (P)  are  sorption  to  the  sedi¬ 
ments  (Taylor  and  Kunishi  1971)  and  plant  uptake.  These  two  mechanisms  appear 
to  be  competitive,  and  phosphate  sorbed  to  sediments  may  be  unavailable  to 
plants  (Fitzgerald  1970).  Phosphate  is  released  by  algal  decay. 

144.  The  physicochemical  sorption  occurs  only  on  aerobic  sediments,  and 
phosphate  is  released  from  apaerobic  conditions  (Gummerman  1970,  Olsen  1964). 
This  latter  possibility  is  ignored  in  the  present  model  under  the  assumption 
that  anaerobic  conditions  are  uncommon  in  streams.  As  much  as  half  the  phos¬ 
phate  present  in  streams  subjected  to  detergent  phosphate  discharges  may  be 
polymerized  as  either  tripolyphosphate  or  pyrophosphate  (Engelbrecht  and 
Morgan  1959).  These  different  forms  aie  believed  to  be  sorbed  and  consumed  at 
the  same  rates,  so  they  have  not  been  distinguished  in  the  present  model. 

145.  The  phosphate  sorption  process  is  repre rented  as  a  simple  first- 
order  decay: 


Rate  of  sorption 
of  phosphate 


-KP04DK*P04 


(171) 
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where 


KP04DK  =  first-order  reaction  rate  coefficient,  day 

3 

P04  =  local  phosphate  concentration,  g  P/m 
The  rate  coefficient  is  obtained  from 

KP04DK  =  (AP04*Q**BK)*( 1.024** (TEMP-20.)) 


(172) 


where 

AP04  =  empirical  coefficient  reflecting  the  adsorption  of  phosphate, 

—1  3  _bK 

day  (m  /day)  ;  if  the  turbulence  option  is  not  used,  then 
the  units  are  day  *  and  Q**BK  equals  1.0 
146.  The  algal  sources  and  sinks  both  are  evaluated  using  Equations  160 
and  161.  These  equations  indicate  that  algae  are  about  1.0  percent  P  by 
weight.  Therefore,  the  plant  source  and  sink  terms  are: 


Release  of  P  by 
algal  decay 


0.01*ALGADK 


(173) 


Uptake  of  P  by 
algal  growth 


=  -0.01*ALGRO 


(174) 


The  complete  phosphate  balance  is: 


Rate  of  accumulation  of 
PO.-P  per  unit  volume, 

4  3 

g  P/m  /day 


-KP04DK*P04+0 .01* (ALGADK-ALGRO) 


(175) 


Iron  and  Manganese 

147.  As  modeled  in  CE-QUAL-RIV1 ,  iron  and  manganese  have  no  autochthonous 
sources.  They  can  enter  the  system  only  in  reduced  form  from  upstream  bound¬ 
aries,  tributaries,  and  lateral  inflows.  Oxygen  depletion  resulting  from  the 
oxidation  of  these  reduced  metals  may  have  an  adverse  impact  on  water  quality 
downstream  from  the  inflow  source.  Since  the  presence  of  reduced  metals  prob¬ 
ably  accompanies  releases  of  waters  already  somewhat  depleted  of  DO,  metal 
oxidation  may  exacerbate  existing  conditions. 
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148.  Oxidation  of  reduced  iron  or  manganese  (loss  from  the  system)  is 
treated  simply  as  a  first-order  process. 

(Loss  of  Mn,  g/n,3/day(  , 

I  due  to  oxidation  J 

(Loss  of  Fe,  g/m3/ day)  _  KFEDK*FF  (176) 

\due  to  oxidation  J  "  -KFEDK*FE 

Oxidation  does  not  occur  if  DO  is  less  than  the  user-specified  value  -of 
0X1DAT.  Use  of  Equation  176  requires  field  data  to  estimate  oxidation  (i.e., 
decay)  rates. 

149.  Temperature  and  turbulence  do  not  affect  the  oxidation  rates  in 
the  model.  Such  rate  corrections  are  unnecessary  since  the  current  model 
formulation  does  not  account  for  other,  possibly  more  important  effects  such 
as  pH  and  autocatalysis.  Future  code  improvements  may  allow  implementation  of 
a  more  mechanistic  approach,  accounting  for  variations  in  process  rates. 


Coliform  Bacteria  and  Miscellany 


150.  Fecal  coliform  bacteria,  which  are  a  preferred  indicator  for  total 
coliform  bacteria,  enter  the  system  only  through  inflows  that  represent  agri¬ 
cultural  or  urban  flows.  Fecal  coliforms  do  not  reproduce  in  natural  aquatic 
environments,  and  their  populations  decay  exponentially;  thus 


{Loss  of  fecal  coliforms, 
col/ 100  ml/day 


-KCOLIDK* 1.047** (TEMP-20 . ) *C0LI 


(177) 


where 

KCOLIDK  =  fecal  coliform  die-off  rate,  day 
COLI  =  fecal  coliform  count,  col/100  ml 


151.  The  coliform  bacteria  variable,  C(10,I)  ,  can  be  used  for  model¬ 
ing  other  miscellaneous  nonconservative  or  conservative  constituents  since  it 
does  not  interact  with  other  water  quality  variables.  Equation  177  does  not 
contribute  to  the  SINKS  term  of  the  transport  equation  (Equation  76)  and 
KCOLTDK  is  the  Kg  term  of  Equation  76.  Therefore,  the  first-order  loss  of 
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other  nonconservative  constituents  could  be  represented  by  Equation  177  and 
the  variable  C(10,I)  .  Likewise,  a  conservative  constituent  could  be  modeled 
by  settling  KCOLIDK  =  0.0  . 
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PART  VII:  THE  HYDRODYNAMIC  PROGRAM  (RIV1H) 


152.  As  has  been  noted  earlier,  the  model  equations  for  constituent 
transport  are  dependent  upon  hydraulic  variables,  but  not  vice  versa.  Because 
of  this  uncoupling,  two  entirely  separate  computer  programs  can  be  written. 

The  first  program,  called  RIV1H,  solves  for  the  time  and  space  distribution  of 
flow,  cross-section  area,  top  width,  and  depth.  When  completed,  these 
calculations  are  stored  for  use  in  RIV1Q,  the  water  quality  model.  RIV1Q  is 
structured  so  that  for  any  one  set  of  hydraulic  data,  a  variety  of  water 
quality  simulations  can  be  performed.  This  part  describes  in  detail  the 
structure  and  operation  of  RIV1H, 


Overview 


153.  The  hydrodynamic  program  contains  five  subroutines  in  addition  to 
the  main  program.  The  main  program  sets  up  the  flexible  dimensioning  of 
arrays  given  the  number  of  nodes  and  segments.  Subroutine  MAIN2  handles  the 
remainder  of  the  input  and  output.  It  sorts  through  the  tributary  network, 
calling  subroutine  BUBBLE,  and  determines  what  types  of  boundary  conditions 
are  to  be  found.  It  sets  up  the  main  time  march  in  which  values  for  all  nodes 
are  solved  simultaneously  while  time-steps  are  handled  successively.  At  each 
time-step,  boundary  conditions  are  assigned,  and  subroutine  CALC  is  called  for 
each  segment  in  a  downstream  order  (from  lowest  order  streams  to  higher 
order).  The  first  iteration  is  completed  by  calling  subroutine  NEW  for  each 
segment  in  an  upstream  order.  Subsequent  iterations  begin  with  calls  to  ITER, 
an  entry  point  within  CALC,  and  again  are  completed  by  calls  to  NEW.  The 
iteration  continues  until  values  of  the  controlling  variables,  flow  and  area, 
have  converged  to  within  tolerance  or  up  to  a  limit  of  50  iterations.  Sub¬ 
routine  CALC  contains  the  governing  equations — conservation  of  mass  and  momen¬ 
tum.  Using  the  residuals  and  partial  derivatives  from  these  equations,  it 
sets  up  a  multidimensional  Newton-Raphson  iteration  in  matrix  format.  The 
matrix  equation  ib  reduced  to  two  vectors  and  solved  completely  by  subroutine 
MATS.  Subroutine  NEW  updates  tne  values  of  flow,  area,  and  other  hydrodynamic 
variables.  In  the  case  of  tributaries,  it  also  completes  the  solution  of  the 
matrix  equation. 
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Structure  of  RIV1H 


154.  Although  the  hydrodynamic  code  is  written  primarily  in  FORTRAN  IV, 
the  program  takes  advantage  of  several  non-ANSI  (American  National  Standard 
Institute)  features  of  the  FORTRAN  compiler,  such  as  namelist  and  list- 
directed  input  and  output,  alternative  entry  points  into  a  subroutine,  etc. 

All  non-ANSI  features  of  this  program  and  RIV1Q  are  covered  in  Appendix  A. 

The  remainder  of  this  section  is  a  guided  tour;  that  is,  topics  are  discussed 
in  the  order  they  appear  in  the  listing,  which  is  found  in  Appendix  B.  Cer¬ 
tain  topics,  such  as  the  tributary  structure,  boundary  conditions,  cross- 
section  formulas,  and  input  and  output  are  mentioned  briefly  in  this  section 
but  are  covered  much  more  fully  in  their  individual  sections.  The  meaning  and 
use  of  all  the  variable  names  are  given  in  Appendix  D,  but  it  should  be  noted 
that  in  order  to  conserve  storage,  several  arrays  are  reused  in  different  ways 
in  different  sections  of  the  program.  The  flowchart  for  RXV1H  appears  in 
Figure  12. 

Main  program 

155.  The  main  program  reads  the  title  card  and  then  the  grid  card  (see 
Input  and  Output,  paragraphs  265-287)  in  which  the  user  indicates  the  number 
of  nodes,  time-steps,  and  segments  in  the  system.  For  the  purposes  of  this 
program,  a  segment  is  defined  as  a  stretch  of  stream,  each  boundary  of  which 
is  either  a  system  boundary,  a  receiving  stream,  or  a  control  structure  (see 
Figure  13).  Forty  arrays  are  assigned  locations  within  the  main  storage 
array,  DJ  .  The  total  storage  required  is  given  by 

30*MNODE  +  32*NS  -  6  (178) 

where  MNODE  is  the  number  of  nodes  and  NS  is  the  number  of  segments  in  the 
system.  The  dimensions  of  these  arrays  are  passed  to  subroutine  MAIN2  by 
being  placed  in  COMMON  along  with  the  title.  Information  on  the  number  of 
time-steps  is  not  used  by  RIV1H,  as  the  program  automatically  stops  upon 
exhaustion  of  the  input  data.  The  water  quality,  however,  because  of  its 
facility  for  sensitivity  analysis,  requires  this  information  and  receives  it 
from  the  hydrodynamic  model.  Once  the  main  program  calls  MAIN2,  its  task  is 
completed.  Upon  return  to  the  main  program,  execution  terminates. 
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SEGMENT 

NUMBER 

AND 

ARRAY 


POSITION 

NNODE 

FEEDS 

JNODE 

COSP 
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IT0 

HI 

Hi 

1 
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3 

10 

60 

7 

2 

0 

0 

2 

23 

3 

17 

60 

3 

3 

0 

0 

3 

26 

7 

0 

6 

0 

2 

4 

4 

26 

3 

21 

60 

1 

4 

6 

6 

5 

13 

4 

17 

2 

6 

0 

0 

S 

25 

7 

8 

60 

4 

1 

5 

5 

7 

16 

0 

0 

8 

0 

1 

1 

8 

9 

6 

10 

120 

5 

5 

■a 

Figure  13.  Sample  network 
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Subroutine  MAIN2 


156.  The  subroutine  MAIN2  is  the  executive  block  of  RIV1H.  It  assigns 

default  values  for  the  constants  GR,  THETA,  TOLER,  BETA,  FLOW,  RCURVE,  and 

o 

1PRINT.  The  acceleration  caused  by  gravity,  GR,  is  set  at  32.174  ft/sec‘" 

under  the  assumption  that  the  units  used  in  modeling  are  the  customary  English 

2 

units.  If  the  a,;er  wishes  to  use  SI  units,  then  a  value  of  9.80  m/sec  should 
be  input  (see  Input  and  Output,  paragraphs  265-287).  In  this  case,  Manning’s 
coefficients  should  be  adjusted  by  a  factor  of  1.49  to  account  for  the  SI  form 
of  the  Manning’s  equation.  However,  the  water  quality  program  does  not  accept 
input  data  with  SI  units,  although  it  converts  to  SI  units. 

157.  The  weighting  factor,  THETA,  is  discussed  in  Part  III.  A  default 
value  of  0.55  is  cited  in  the  literature  as  optimal  for  model  accuracy;  how¬ 
ever,  a  higher  value  (i.e.,  0.6  to  0.75)  is  often  used  to  enhance  stability. 
The  relative  error  tolerance,  TOLER,  is  assigned  a  default  value  of  0.001. 
Iteration  ceases  when  all  residuals  (i.e.,  differences  in  successive 
iterations)  for  flow  and  area  are  less  than  TOLER  times  the  root  mean  square 
of  all  flows  or  areas  in  the  system.  Experience  suggests  a  larger  value 
(I.e.,  0.1)  can  reduce  run  time  without  substantially  sacrificing  accuracy. 

The  momentum  correction  factor,  BETA,  is  given  the  default  value  of  1.0,  that 
is,  no  correction.  The  variables  FLOW  and  RCURVE  are  used  in  input  operations 
(see  Input  and  Output,  paragraphs  265-287).  IPRINT  is  the  print  interval. 

Its  default  value  is  1;  that  is,  every  time-step  is  printed. 

158.  The  program  then  proceeds  to  input  operations.  The  namelist  dic¬ 
tionary  is  given,  and  the  constant  card  is  read.  For  each  segment,  the  seg¬ 
ment  card  is  read  and  parsed;  then  initial  conditions  cards  are  read,  one  for 
each  node.  Following  these  is  the  boundary  conditions  Identification  card,  in 
which  the  user  informs  the  program  which  boundary  conditions  are  being  sup¬ 
plied  in  the  input  stream. 

159.  The  user  refers  to  each  segment  by  its  identification  number,  but 
the  program  refers  to  each  segment  by  its  order  of  appearance  in  the  input. 

All  references  by  identification  number  are  therefore  converted  to  references 
by  array  index,  using  the  array  ID  as  a  dictionary.  In  the  same  way,  it  is 
convenient  for  the  user  to  know  which  segment  each  boundary  condition  belongs 
to,  and  the  program  stores  this  information  in  the  array  IBC.  For  the  program 
however,  it  is  more  convenient  to  know  at  which  array  location  a  particular 
boundary  condition  is  to  be  found.  The  appropriate  indices  are  determined  and 
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stored  in  the  arrays  JBCU  and  JBCD,  for  upstream  and  downstream  respectively. 
Next,  the  number  of  boundary  condition  updates,  the  update  intervals,  and  the 
boundary  conditions  are  read. 

160.  As  mentioned  previously,  the  iteration  process  consists  of  one 
downstream  and  one  upstream  sweep  through  the  system.  The  next  block  of  the 
program  determines  the  proper  ordering  of  the  segments  for  the  two  sweeps  and 
establishes  the  packing  of  arrays  through  which  tributaries  and  receiving 
streams  will  pass  information.  The  water  quality  model  requires  that  data  for 
all  tributaries  to  any  given  segment  be  packed  in  a  downstream  order.  This 
sorting  is  done  by  subroutine  BUBBLE.  Also  in  the  program  section,  boundary 
conditions  that  are  generated  within  the  stream  network,  as  opposed  to  being 
given  in  the  input,  are  reset  in  the  arrays  JBCU  and  JBCD. 

161.  For  the  user,  the  controlling  variables  are  flow  and  stage,  but 
the  program  works  predominantly  with  flow  and  area.  The  next  section  calcu¬ 
lates  area  and  channel  top-width  from  the  initial  stage  and  the  cross  section 
given  for  each  (see  Cross-Section  Formulas,  paragraphs  181-185). 

162.  River  miles  are  calculated  for  the  system  nodes  as  follows.  Pro¬ 
ceeding  upstream  through  the  network,  if  a  segment  is  the  mainstream  of  tlie 
system,  the  river  mile  of  the  last  node  is  set  to  RM1LE0  (which  is  obtained 
from  the  input).  If  it  is  a  tributary,  the  river  mile  of  the  last  node  is 
zero.  If  it  terminates  at  a  control  structure,  then  it  is  considered  to  be 
part  of  the  same  stream  as  the  segment  downstream,  and  the  river  mile  of  the 
last  node  is  equal  to  that  of  the  latter’s  first  node.  Once  the  river  mile  of 
the  most  downstream  node  is  established,  the  river  miles  of  the  rest  of  the 
nodes  of  the  segment  are  calculated  by  successive  addition  of  distance  incre¬ 
ments,  indexing  upstream. 

163.  The  acceleration  caused  by  gravity  is  divided  by  two  in  most 
places  that  it  appears  in  the  governing  equations,  so  to  streamline  the  pro¬ 
gram,  this  division  is  carried  out  once  and  for  all  before  the  time  march 
begins. 

164.  A  purely  relative  tolerance  test  risks  a  zero  divide  error  in  the 
case  of  a  flow  reversal  where  at  some  instant  flow  may  gc  to  zero.  For  this 
reason  and  others,  the  difference  between  successive  estimates  of  the  depen¬ 
dent  variables  flow  and  area  is  compared  not  with  the  values  themselves  but 
with  the  root-mean-square  values  for  all  nodes,  one  for  flow  and  the  other  for 
area,  times  TOLER. 
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165.  The  input  title,  constants,  and  initial  conditions  are  copied  onto 
output.  Grid  parameters,  network  organization  variables,  distance  increments, 
lateral  inflows,  and  river  miles  are  written  onto  disk  storage  for  use  by  the 
water  quality  model. 

166.  The  main  time  march  begins  by  initializing  the  time-step  number 
(IT1ME)  and  the  elapsed  time  (ELAPSE)  to  zero.  Data  from  the  previous  time- 
step  are  then  written  (in  the  case  of  the  first  time-step,  this  refers  to 
initial  conditions).  At  the  top  of  the  page  comes  the  program  title.  The  run 
title,  supplied  by  the  user,  is  written  below.  Next  the  elapsed  time,  which 
has  units  of  seconds  for  input  and  computation,  is  written  out  in  hours  and 
minutes;  next  to  this  appear  the  time-step  number,  the  segment  identification 
number,  the  segment,  and  name.  Headings  are  written  for  river  mile,  flow, 
area,  width,  stage,  and  water  surface  elevation.  Data  appear  in  columns  below 
the  headings.  Flow,  area,  width,  lateral  inflow,  and  water  surface  elevation 
are  written  onto  disk  storage.  After  incrementing  the  time-step  number  and 
elapsed  time,  the  calculation  for  the  next  time-step  proceeds. 

167.  One  complete  iteration  of  the  Newton-Raphson  method  consists  of  a 
downstream  sweep  through  the  system,  an  upstream  sweep,  and  a  convergence 
test.  For  the  first  iteration  within  a  time-step,  the  downstream  sweep  con¬ 
sists  of  updating  all  time-varying  boundary  conditions  and  calling  subroutine 
CALC  for  each  segment.  Subsequent  iterations  require  updating  only  those 
boundary  conditions  that  are  internally  generated  (i.e.,  rating  curves  and 
water  surface  elevation  at  tributary  junctions).  In  addition,  certain  calcu¬ 
lations  within  CALC  are  bypassed  by  entering  the  subroutine  at  entry  ITER. 

The  upstream  sweep  in  both  cases  calls  subroutine  NEW  for  each  segment. 

168.  Fifty  iterations  are  permitted.  If  results  have  not  converged  to 
within  tolerance  by  then,  the  program  stops,  writes  an  error  message,  and  puts 
out  a  condition  code  of  7.  The  condition  code  (which  has  a  value  of  zero  if 
instead  the  run  is  successful)  can  serve  as  a  signal  to  other  job  steps  not  to 
run. 

Subroutine  CALC 

169.  Subroutine  CALC  contains  the  governing  equations  of  the  hydro- 
dynamic  model — conservation  of  mass  and  conservation  of  momentum.  It  sets  up 
these  equations  as  the  sum  of  terms  having  to  do  with  the  previous  time-step 
and  terms  having  to  do  with  the  current  time-step.  Terms  having  to  do  with 
the  previous  time-step  need  be  calculated  only  once  per  time-step.  Therefore, 
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all  iterations  past  the  first  enter  subroutine  CALC  at  entry  ITER,  after  the 
calculation  of  previous  time-step  terms.  The  terms  are  lumped  into  the  array 
XC  for  the  continuity  or  conservation  of  mass  equation  and  XM  for  the  conser¬ 
vation  of  momentum  equation.  The  final  entries  of  the  arrays  XC  and  XM  are 
reserved  for  the  contribution  of  the  segment  to  the  continuity  and  momentum 
equations  respectively  of  its  receiving  stream  (see  Tributaries,  para¬ 
graphs  189-208). 

170.  To  enhance  execution,  repeatedly  used  array  quantities  are 

assigned  to  scalar  variables;  for  instance,  when  dealing  with  the  reach 
between  nodes  i  and  i+1  ,  the  value  of  Q ( I)  is  assigned  to  QO  ,  the 

value  of  Q(I+1)  is  assigned  to  Q1  ,  and  DX  takes  on  the  value  DX1(X)  . 

171.  The  governing  equations  are  written  in  the  program  as  they  appear 

in  Part  III  with  two  exceptions:  the  off-channel  storage  area,  AO  ,  is 

ignored  and  the  slope,  SO  ,  is  combined  with  the  pressure  gradient  term  and 

appears  in  the  equation  as 


DE  =  EL(I+1)  -  EL(I)  (179) 

where  EL  is  the  water  surface  elevation. 

172.  The  upstream  boundary  condition  (see  Boundary  Conditions,  para¬ 
graphs  186-188)  can  be  either  a  flow  or  a  stage.  If  a  stage  is  used,  it  must 
be  converted  to  the  cross-sectional  area  by  the  appropriate  formula  (see 
Cross-Section  Formulas,  paragraphs  181-185).  The  set  of  boundary  conditions 
employed  is  indicated  by  the  value  of  LIB  (see  Boundary  Conditions,  para¬ 
graphs  186-188).  The  partial  derivative  array,  AA,  and  the  residual  vector, 

R,  are  packed  accordingly.  Downstream  boundary  conditions  can  be  flow,  stage, 
or  a  rating  curve  and  are  handled  in  the  same  way. 

173.  The  governing  equations  are  given  next,  but  a  little  preparatory 
work  is  necessary  first.  In  calculating  the  partial  derivatives  of  the 
governing  equations  with  respect  to  A_^  and  A^+^  (cross-sectional  areas  of 
nodes  i  and  i+1  ,  respectively),  values  for  dB^/dA^  and  dB^^/dA^^  are 
required.  Applying  the  chain  rule: 

„  «  .  dH  =  dB  .  1  ( 

dA  dH  dA  dH  B  K  J 
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It  remains  to  calculate  dB^/dH^  and  dB^^/dH^^  •  Now  as  calculation  pro¬ 
ceeds  from  node  to  node,  is  updated  as  the  variable,  DBDH  .  It 

takes  on  its  new  value  in  between  the  calculation  of  the  partial  of  the 
momentum  equation  with  respect  to  A^  and  the  partial  with  respect  to  . 

This  leaves  the  values  of  dA^/dH^  ,  which  must  then  be  calculated,  outside  of 
the  loop. 

174.  Proceeding  in  order  then,  the  reach  specific  quantities  are  set. 

The  residual  of  the  continuity  equation  is  calculated.  The  residual  of  the 
momentum  is  calculated.  Calling  the  continuity  equation  F  and  the  momentum 
equation  G  ,  ,  3F/3At  ,  3F/3Qi+1  ,  9*/9Ai+1  »  WQj.  »  9G/ 3AJL  , 

and  <*G/3q^+^  are  calculated.  A  new  value  is  calculated  for  DBDH  to  permit 
calculation  of  3g/3a_j,+j  •  The  ot  partial  derivatives,  AA,  is  packed 

appropriately  (see  Boundary  Conditions,  paragraphs  186-188). 

175.  The  residuals  and  partial  derivatives  are  adjusted  to  account  for 
the  effects  of  any  tributaries  entering  this  segment.  Next.,  allowance  is  made 
for  the  fact  that  the  matrix  solver  requires  nonzero  entries  in  the  upper 
left-hand  and  lower  right-hand  corners  of  the  coefficient  matrix.  A/'-  Under- 
certain  types  of  boundary  conditions,  i.e.  those  involving  stage  at  tb». 
upstream  end  or  flow  at  the  downstream  end,  this  assumption  would  be  invalid. 
To  compensate,  the  program  interchanges  columns  in  the  coefficient  matrix 
prior  to  calling  the  matrix  solver,  subroutine  MAT5,  and  reverses  the  inter¬ 
change  in  the  solution  vector  upon  return. 

176.  Finally,  before  returning  to  MAIN2,  if  this  segment  is  a  tribu¬ 
tary,  it  loads  data  into  the  tributary  information  passing  array  T. 

Subroutine  MAT5 

177.  Subroutine  MAT5  contains  an  algorithm  for  solving  the  five-banded 
coefficient  matrix  AA  constructed  in  subroutine  CALC.  It  takes  advantage  of 
several  facts  about  this  matrix  to  increase  efficiency.  The  matrix's  struc¬ 
ture  is  shown  in  Equation  195.  The  value  of  unity  in  the  upper  left-hand 
corner  is  implied,  and  the  extreme  diagonals  are  only  half-populated.  By 
pairwise  row  operations,  these  extreme  diagonals  are  eliminated,  leaving  a 
matrix  ol  Lridiagonal  structure.  This  is  readily  solved  by  a  recursive 
Gaussian  elimination  (Carnahan,  Luther,  and  Wilkes  1969)  known  as  the  Thomas 
algorithm.  First,  the  lower  codiagonal  Is  eliminated  proceeding  from  the  top 
of  the  matrix  down.  Proceeding  from  the  bottom  up,  the  upper  codiagonal  is 
eliminated,  and  each  row  is  normalized  to  leave  the  identity  matrix  on  the 
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left  and  the  solution  vector  on  the  right.  In  the  case  of  a  tributary,  a  com¬ 
panion  vectc  ,  C  ,  is  generated  in  this  last  step  (see  Tributaries,  para¬ 
graphs  189-20  ,  Normally,  the  lower  right-hand  element  is  assumed  to  be 

unity,  and  .  ’ement  to  its  left  is  assumed  to  be  zero.  These  assumptions 
would  not  be  sse  for  a  segment  whose  downstream  boundary  is  a  rating 

curve.  Such  a  segment  must  have  its  last  row  handled  in  a  special  way,  which 
produces  modified  values  for  the  solution  vector  (but  not  the  companion 
vector,  C  ,  as  such  a  segment  cannot  be  a  tributary). 

Subroutine  NEW 

178.  The  output  for  subroutine  MAT5  is  vector  R,  which  now  contains 
adjustments  to  be  made  in  flow  and  area  to  arrive  at  the  new  estimates. 

First,  however,  the  vector  R  may  have  to  be  adjusted  to  account  for  effects  of 
the  receiving  stream  if  this  segment  is  a  tributary.  Once  this  is  done, 
alternate  values  of  R  are  added  alternatively  to  flow  and  area.  From  the  new 
area  estimates,  new  stage  and  width  estimates  can  be  made.  Now  the  cross- 
section  formulas  explicitly  yield  area  and  width,  given  stage.  There  is  no 
explicit  formulation,  however,  that  will  yield  width  and  stage  given  area. 

The  answer  is  therefore  arrived  at  using  another  Newton  iterative  procedure. 
This  is  of  the  form 


H 

new 


=  H  .  .  - 
old 


(181) 


where 

H  =  new  estimate  of  stage 
new 

=  previous  estimate  of  stage 

f (H)  -  cross-section  formula  for  area  as  a  function  of  stage 
A  =  new  cross-sectional  area 

f’(H)  =  derivative  of  the  cross-section  formula  for  area  as  a  function 
of  stage  with  respect  to  stage 

The  variable  f'(H)  is  equivalent  to  the  cross-section  formula  for  width  as  a 
function  of  stage,  and  so  it  Is  called  BO  in  the  program,  that  is,  a  provi¬ 
sional  estimate  of  width  just  as  HO  is  a  provisional  estimate  of  stage, 

179.  The  test  of  satisfactory  convergence  is  the  relative  difference 
between  successive  estimates, .where  the  tolerance  is  fixed  at  0.01.  Failure 
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to  converge  in  10  iterations  causes  the  program  to  terminate,  print  an  error 
message,  and  put  out  a  condition  code  of  7. 

Subroutine  BUBBLE 

180.  As  mentioned  previously,  the  water  quality  model  requires  the 
tributary-data-passing  arrays,  JT  and  T  to  be  packed  such  that  all  tributaries 
entering  a  given  segment  can  be  accessed  in  downstream  order.  The  subroutine 
scans  the  list  of  segments  to  see  if  any  has  more  than  one  tributary.  If  one 
is  found,  pointers  to  the  tributaries  and  entries  in  the  array  JT  are  sorted 
in  a  downstream  order  according  to  the  BUBBLE  algorithm  (Knuth  1973) . 

Cross-Section  Formulas 


181.  It  is  possible  to  have  a  program  of  this  sort  work  with  explicit 
cross-section  representations;  that  is,  the  coordinates  measured  in  the  field 
could  be  used  directly  to  relate  area,  width,  and  depth.  As  short-hand  cross- 
section  descriptions,  however,  RIV1H  has  two  stage-area  and  stage-width  equa¬ 
tions  (stage  is  height  of  the  water  surface  above  the  channel  bottom):  a 
hybrid  power  function  and  an  ellipsoid  function. 

182.  The  hybrid  power  function  (standard  formula)  is: 

C3 

A  =  CjH  +  C2H  (182) 

Consequently,  since  B  is  equal  to  dA/dH  : 

C3-1 

B  =  C.  +  C„C,H  J  (183) 

i  Z.  J 


where 

A  =  area 
H  =  stage 

B  =  channel  top  width 

These  formulas  can  describe  a  variety  of  standard  shapes.  With  =  0  , 
they  describe  a  rectangle  of  width  C^  .  With  C^  =  0  and  C^  =  2  ,  they 

describe  a  triangle  with  a  height-to-width  ratio  of  — .  With  C,,  =2 
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and  = 

slopes  of  Y  and  Z  .  With  «  0  ,  ^  n^2  ,  and  ^3  “  f  »  they 

describe  a  parabolic  cross  section  of  the  form 


1  (1  +  l\ 

2  \Y  z)  * 


they  describe  a  trapezoid  of  bottom-width  and  side- 


01 


(184) 


where  a  is  the  distance  from  the  vertex  to  the  focus.  Other  shapes  can  be 
approximated  by  curve  fitting. 

183.  In  cases  where  an  ellipse  would  give  a  better  fit  (for  instance, 
flow  in  a  partially  full  conduit) ,  the  user  has  the  option  of  so  describing 
such  cross  sections.  The  geometric  descriptions  at  each  node  are  independent; 
for  instance,  ellipses  may  be  interspersed  with  standard  descriptions.  In 
designating  the  ellipse,  is  half  the  vertical  axis  length,  is  half 

the  horizontal  axis  length,  and  is  set  to  -1  to  indicate  to  the  program 

that  an  ellipsoid  description  is  intended.  If  ,  of  course,  the 

cross  section  is  circular.  The  formulas  are 


(185) 


and 


A  =  arccos  (1-H/C^  -  B(C1-H)/2.  (186) 

All  formulas  are  summarized  in  Figure  14. 

184.  In  the  course  of  the  program,  several  manipulations  of  the 

cross-section  formulas  are  required.  These  formulas  (Equations  185  and  186) 

are  found  in  subroutine  MAIN2  in  the  initial  calculations  of  areas  and  widths, 

again  in  subroutine  CALC  in  performing  the  same  calculations  for  upstream  and 

downstream  boundary  conditions,  and  in  subroutine  NEW  where  the  stages  are 

updated.  Later  in  subroutine  CALC,  when  calculating  the  partial  derivatives 

of  the  momentum  equation  with  respect  to  area,  a  value  is  required  for 

1  dB 

dB/dA  .  This  is  computed  using  Equation  183;  it  is  equal  to  g  •  The 
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CROSS-SECTIONS  FALL  INTO  TWO  BASIC  TYPES: 


1.  THE  STANDARD  FORMULA: 

A  =  CiH  +  C2Hc3  .  B  =  Ct  +  C2C3Hc3-i 


IN  THIS  CATEGORY  FALLS 


RECTANGULAR, 
Ci  =  W 
Ci  =  O 


TRIANGULAR, 
C!  =  O 


C2 

C3  =  2 


* - W 


TRAPEZOIDAL, 
Ci  =  B0 

C2  =  + 

C3  =  2 


AND  PARABOLIC, 
Ci  =  O 


OTHER  SHAPES  CAN  BE  APPROXIMATED  BY  CURVE-FITTING 
2.  ELLIPSOID 

B  =  2C2/C1  V2C  ^-H2 
A  =  C1C2ARCCOS(1-H/C1)  -  B(C1-H)/2 


Figure  14.  Cross-section  types 
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derivative  ^  is  called  DBDH  in  the  program  and  for  the  standard  formula 
is  equal  to 


(C.-2) 

C2C3  (C3  -  1)H 


and  for  the  ellipsoid  formula 


4 


(187) 


(188) 


185.  In  most  computer  systems,  algorithms  for  taking  integral  powers 
are  much  less  involved  than  those  for  taking  nonintegral  powers.  RIV1H  takes 
advantage  of  this  by  determining  for  each  cross  section  whether  the  exponent 
C3  is  integral.  If  it  is,  the  integer  array  13  receives  the  value  of  C3  , 
and  C3  is  set  to  zero,  which  serves  as  a  signal  to  the  rest  of  the  program 
to  use  13  in  cross-section  calculations  rather  than  C3  . 


Boundary  Conditions 

186.  For  the  system  of  equations  to  be  solved,  a  pair  of  boundary  con¬ 
ditions,  one  upstream  and  one  downstream,  must  be  known  for  all  time-steps. 
Either  flow  or  stage  is  given  for  the  upstream  condition,  and  any  of  flow, 
stage,  or  a  rating  curve  can  be  given  for  the  downstream  condition.  The  six 
alternative  sets  are  given  in  Table  3  along  with  values  of  the  residual  matrix 
(see  Equation  195).  The  rating  curve  must  be  of  the  form 

H  =  COEF  QEXP0  (189) 


where 

H  =  depth  of  flow,  ft 
3 

Q  =  discharge,  ft  /sec 

Then  COEF  and  EXPO  are  input  in  the  "segment"  card  (see  Input  and  Output, 

b 

paragraphs  265-287).  If  the  rating  curve  is  instead  of  the  form  Q  =  aH  , 
then  simply  set  EXPO  =  1/b  and  COEF  =  a*~  „ 
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Table  3 

Library  (LIB)  of  Boundary  Conditions 


Upstream 

Downstream 

v> 

a 

m 

a  i 
m-1 

LIB 

Condition 

Condition 

K 

n 

tl 

1 

H 

H 

0 

0 

1 

0 

1 

2 

H 

Q 

0 

0 

1 

1 

0 

3 

H 

RC 

RC 

0 

1 

DBCQ 

DBCA 

4 

Q 

H 

0 

1 

0 

0 

1 

5 

Q 

Q 

0 

1 

0 

1 

0 

6 

Q 

RC 

RC 

1 

0 

DBCQ 

DBCA 

Note:  H  =  stage 
Q  *  flow 

RC  =  Equation  192 
DBCQ  =  Equation  193 
DBCA  =  Equation  194 

R  ,  a.,  a_,  a  ,  a  ,  are  stated  in  Equation  195 
n  1  L  m  m-1 

187.  One  purpose  of  the  boundary  conditions  is  to  supply  values  for  use 
in  the  next  time-step.  A  boundary  condition  of  flow  can  be  used  directly.  A 
boundary  condition  of  stage  can  be  used  after  the  area  and  width  are  calcu¬ 
lated  from  it.  The  major  purpose  of  the  boundary  conditions  is  to  properly 
constrain  the  system  of  equations.  This  purpose  is  accomplished  by  treating 
the  equations  that  assign  values  to  the  boundary  conditions — or  alternatively 
the  rating  curve  equation — in  the  same  way  as  the  governing  equations.  The 
residual  is  placed  in  the  residual  matrix,  R  ,  and  the  partial  derivatives 
are  placed  in  the  partial  derivative  matrix,  AA  .  For  instance,  the  assign¬ 
ment  of  the  upstream  boundary  condition  to  H  is  H  =  BCU  or  A  =  f(BCU) 
where  f  is  the  stage-area  function  and  BCU  is  the  value  of  the  upstream 
boundary  condition.  Isolating  all  known  quantities  on  the  left,  we  have 

A  -  f (BCU)  =  0  (190) 

The  residual  is  equal  to  zero.  The  partial  derivative  with  respect  to  A 
is  i.  The  partial  derivative  with  respect  to  Q  is  0.  The  same  reasoning 
applies  to  the  downstream  condition  and  to  flow,  0  ,  as  a  bo>’ndary  condition. 

188.  A  slightly  different  situation  is  presented  by  having  a  rating 
curve  as  the  downstream  condition.  Here  the  equation  is 


102 


H  =  COEF*QEXPO  (191) 

Now  this  is  not  an  assignment  statement,  but  a  constraint  on  the  behavior  of 
H  and  Q  .  Since  the  solution  scheme  involves  iterative  approximation,  Equa¬ 
tion  191,  when  coupled  with  the  governing  equations,  is  not  solved  exactly. 

It  leaves  a  non-zero  residual. 


H  -  C0EF*QEXP0  =  R 


(1°2) 


This  residual  finds  its  place  in  the  residual  matrix,  R.  The  partial  deriva¬ 
tives  of  the  above  equation  are  taken  with  respect  to  Q  and  A  .  These  are 
called  in  the  program  respectively  DBCQ  and  DBCA, 


=  expo*coef*qexpo"1 


(193) 


3(-R)  _  dH  _  1 

3A  =  "  dA  =  "  B 


(194) 


The  matrix  becomes 


al  a2 

AOj 

0 

DFQ  DFA  DFQ1  DFA1 

AAj 

R1! 

DGQ  DGA  DGQ1  DGA1  0 

aq2 

1(2 

0  DFQ  DFA  DFQ1  DFA1 

• 

AA2 

= 

ri2 

DGQ  DGA  DGQ1  DGA1  0 

aq3 

R22 

0  DFQ  DFA  DFQ1  DFA1 

AA3 

R13 

DGQ  DGA  DGQ1  DG’Al 

AQ4 

R23 

a  ,  a 

AA. 

R 

m-1  m 

L  4  J 

L  n  J 

(195) 


with  a.  ,  a„  ,  a  ,  ,  a  ,  and  R  taking  on  values  which  depend  on  the 
1  2  m-1  m  n  °  1 

value  of  LIB  (see  Table  3), 
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Tributaries 


189.  The  major  concerns  in  designing  a  program  to  handle  tributaries 
are  that:  (a)  the  relevant  physics  be  modeled  with  fidelity;  (b)  the  program 
should  be  capable  of  handling  any  arbitrary  tributary  network;  (c)  it  should 
be  efficient  in  input  and  output,  computer  storage,  and  execution;  and  (d)  it 
should  be  amenable  to  possible  future  change. 

190.  In  this  program,  a  stream  network  is  envisioned  as  a  group  of  dis¬ 
crete  segments.  A  segment  is  defined  as  a  streitch  of  stream  whose  boundaries 
are  a  system  boundary,  a  receiving  stream,  or  a  control  structure.  N*'  control 
structures  are  permitted  within  a  segment.  Based  on  user-supplied  information 
about  each  segment,  the  program  constructs  the  network,  determines  an  upstream 
ordering  of  the  segments,  decides  what  types  of  boundary  conditions  apply  to 
each  segment  boundary,  and  determines  at  which  array  locations  each  of  these 
boundary  conditions  values  is  to  be  found.  An  upstream  ordering  assures  that 
when  the  turn  comes  for  any  given  segment  to  be  processed,  the  segment  it 
feeds  into  has  already  been  processed.  Conversely,  a  downstream  ordering 
assures  that  when  the  turn  comes  for  any  given  segment  to  be  processed,  all 
segments  flowing  into  it  have  already  been  processed. 

191.  The  first  iteration  of  the  Newton-Raphson  method  at  each  time-step 
requires  new  boundary  conditions  to  be  assigned  at  all  time-varying  bound¬ 
aries.  Subsequent  iterations  require  new  values  only  for  boundary  conditions 
that  are  generated  within  the  systems,  i.e.,  tributary  junctions  and  flow 
through  control  structures.  The  program  then  assembles  and  solves  the  Newton- 
Raphson  matrix  for  the  entire  system  in  what  might  be  regarded  as  one  step. 

In  fact,  however,  the  matrix  is  assembled  and  reduced  segment  by  segment  as 
the  algorithm  proceeds  downstream.  When  the  final  segment  is  reached,  the 
process  is  reversed,  and  the  reduced,  partitioned  matrix  is  solved  completely, 
segment  by  segment  in  an  upstream  order. 

192.  The  detailed  features  of  this  algorithm  can  be  illustrated  by 
following  the  solution  of  a  simple  tributary  system  from  the  inside  of  the 
solution  scheme  out.  The  tributary,  J  ,  joins  with  the  mainstream,  M  ,  at 
node  K  ,  In  the  remainder  of  this  section,  the  portions  of  the  governing 
equations  relevant  to  tributary  junctions  are  reviewed  and  placed  within  the 
matrix  structure,  and  the  solution  of  the  matrix  is  delineated.  Next,  the  way 
the  main  program  controls  the  flow  of  information  between  subroutines  and 
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coordinates  the  matrix  assembly  and  solution  is  described.  Finally,  the 
method  of  constructing  the  network  and  assigning  priority  and  boundary 
conditions  is  discussed. 

The  coefficient  matrix 

193  The  governing  equations  are  discussed  in  Parts  II  and  III  but  are 
reviewed  •  'as  the  structure  of  the  matrix  solution  is  intimately  tied  to 
the  structure  of  the  equations.  The  Newton-Raphson  method  assembles  a  set  of 
linear  equations  of  the  form 


A  •  x  =  R 


(196) 


where 


A  =  coefficient  matrix  with  elements  of  the  form  8Rj,/9x^ 

x  =  vector  of  increments  in  the  controlling  variables  (Q  and  A) 

R  =  vector  of  the  negative  residuals  from  the  governing  equations 
(continuity  and  momentum) 

In  the  case  of  a  single  segment,  the  five-banded  coefficient  matrix  is 
assembled  as  in  the  form  of  Equation  197,  with  three  fully  populated  bands  and 
two  extreme  bands  half-populated. 


1 

&Q1 

0 

3Fl/aQl  3V3A1  3V392  3V3A2 

iA! 

-F1 

aGj/SQj  3G1/3A1  aGj/SQj  3Gj/3A2  0 

aq2 

0  3F2/3Q2  3F2/3A2  3F2/3Q3  3F2/3A3 

4A2 

-F2 

3G2/3Q2  3G2/3A2  3G2/3Q3  3G2/3A3  0 

• 

aq3 

- 

-G2 

0  3F3/3Q3  3F3/3A3  3f3/3q4  3F3/3aa 

iA3 

-F3 

3G3/3Q3  3G3/3A3  3G3/3Q4  3G3/3A4 

-G3 

1 

iAA 

0 

- 

. 

. 

(197) 
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194.  In  the  case  of  a  single  tributary,  two  of  these  five-banded  struc¬ 
tures  are  placed  head-to-toe  and  nine  off-diagonal  members  are  added  to  handle 
junction  conditions.,  as  in  Equation  199. 

195.  The  single  off-diagonal  element  in  the  first  quadrant  C-Bj/Bj,) 
represents  the  condition  that  the  water  surface  elevation  at  the  mouth  of  the 
tributary  is  equal  to  that  at  the  junction  point  on  the  mainstream,  i.e. 

Ej  =  E^  .  Taking  differentials,  dE^  =  dE^  .  However,  the  water  surface  ele¬ 
vation  is  the  sum  of  the  bed  elevation  and  the  depth  of  flow,  and  the  bed  ele¬ 
vation  is  taken  to  be  a  constant  at  any  node,  so  dH^  =  dHj,  .  To  fit  into  the 
Newton-Raphson  scheme,  H  must  be  replaced  by  the  controlling  variable  A  , 
or 


J  1  1 

dH T  =  dA.  •  —  =  dAT  —  -  dA„  ~ 
J  J  dAj  J  Bj  K  B^ 


(198) 


As  it  appears  in  the  matrix 
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dAJ  -  dAK  r  "  ° 

K. 


1 


(200) 


3F, 


196.  The  eight  elements  in  third  quadrant  are 


K-l 


3Qi 


3G, 


K-l 


9A, 


5 

’  3Q-, 


K 


9A, 


K 


5 

3Qi 


K 


9G, 


K 


3FK-1 

9A 


9G, 


K-l 


9A , 


,  where  F  and  G  are  the  residuals  from 


the  continuity  equations,  respectively,  for  the  reaches  above  and  below  the 
junction  point  of  the  mainstream.  These  residuals  must  be  adjusted  for  the 
presence  of  the  tributary: 


2K-1 


=  -fk  + 


%  [eo,  +  (1  -  e>  qj]  -  -FK  +  ^ 


d  _  n  4. 

K2K  K  d)^ 


,3  2 


+  (1  -  0) 


cos  <{> 


-G*  + 

K  dXj. 


(201) 


where 

F,  G  =  lumping  of  terms 
j  =  previous  time-step 
(J>  =  junction  angle 
The  derivatives  are 
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197.  Conceptually,  the  solution  begins  with  reducing  the  second  quad¬ 
rant  to  the  identity  matrix  by  Gauss  elimination.  First,  the  extreme  diago¬ 
nals  are  eliminated  by  pair-wise  operations  on  the  rows.  Next,  the  lower 
codiagonal  is  eliminated  by  standard  tridiagonal  matrix  methods.  Finally,  in 
eliminating  the  upper  codiagonal,  the  single  first-quadrant  element,  which  has 
to  this  point  been  untouched,  generates  a  column  of  numbers  above  it  (Equa¬ 
tion  203) .  All  elements  of  this  column  are  proportional  to  the  single  origi¬ 
nal  element  in  that  column,  -Bj/Bk  .  Because  of  this  fact,  that  element  can 
be  given  the  value  of  -B^  provisionally  (as  the  tributary  does  not  "know" 
the  value  of  B^) ,  and  the  other  elements  can  be  multiplied  by  the  factor 

1/B  later.  The  last  and  next-to-last  rows  in  the  tributary  portion  of  the 

is. 

matrix  can  now  be  brought  down  to  eliminate  the  eight  (six  non-zero)  third- 
quadrant  elements.  This  elimination  changes  the  value  of  the  four  residuals 
around  the  junction  node  and  the  four  elements  of  the  coefficient  matrix  below 
the  elements  C_^  .  Following  the  numbering  in  Equations  199  and  203 
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SFK-1  .  dt  „  C6 
a34  ‘  3Ak  dx^  '  Bk 


8GK-1  2dt  ,  n  QJ  C6  dt  n  /  Qj\  BJ 

a,/  =  +  —  cosMr;  +  dx^;  el rj  cos  + 


44  3A„  ’  dXK_ 


K 


^Vdtefb 

a52  -  3Ak  d^  Bk 


3GK  2dt  n  QJ  C6  .  dt  n/Qj\  BJ 

a,0  =  TT~  +  jv-  0  T“  F"  cos  $  +  aT~  0  7~  v~  cos  $ 

62  8Ak  dXK  Aj  Br  d^  l  kj  Bk 


.  .  .  +  J  +  dt8  * 

”tr  i  *  iw  '  ^ 


3  K-l  dXR_ 


1  K-l 


,  GJ  2dt  QJ  ,  „* 

R4  '  -°K-1  +  dX^  +  di£^  Aj  cos  *  R6 


Terms  that  do  not  have  to  do  with  the  main  stem  can  be  collected. 


T.  =  dt  0  C, 

1  o 


T„  =  F,  +  dt  0  R, 

L  J  O 


QJ  fQj\ 

T0  =  2dt  0  -r-  C,  +  dt  0  7^  Bt  cos  <P 

3  AJ  6  \AjJ  J 


(204) 
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to  leave 


\T  * 

T,  =  GT  +  2dt  0  -r—  R, 
A  J  Aj  6 


(205) 


sfk-i  ti 
a39=  3Ak  +  dXK_1BK 


3GK-1+  T3 

3,  ,  =  — r-: + 


44  3A„  •  dXR  ,  B 
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3FK+  T1 
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52  SAjj  dVK 


aGk  T3 
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62  3AJ<  dXJ(BK 


R3  =  “FK-1  +  dX^ 


R4  "  "GK-1  +  dXR_1 


R5  “  "FK  +  dXK 


R6  GK-1  +  dXR 


(206) 


198.  In  the  notation  of  the  program,  if  the  junction  occurs  at  node  i 
and  IR  =  2(i-l)  and  IA  =  5*IR 
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AA(IA-6)  =  a3/, 

AA(IA-2)  =  a44 
AA(IA+2)  =  a52 
AA(IA+6)  =  a62 
R(IR)  =  R3 
R(IR+1)  =  R4 
R(IR+2)  =  R5 

R(IR+3)  =  Rfi  (207) 

The  terms  T^  through  T4  are  calculated  In  subroutine  CALC  when  it  solves 
the  tributary  portion  of  the  matrix  and  are  passed  back  to  that  subroutine 
when  it  is  called  to  work  on  the  main  stem.  The  adjustment  in  the  main  stem 
portion  of  the  matrix  and  residuals  vector  is  made,  and  the  main  stem's  system 
of  equations  can  be  solved  completely  by  Gauss  elimination.  This  leaves  all 
main  stem  variables  solved,  but  the  tributary  system  as  yet  undetermined. 

Once  the  coefficient  matrix  A  is  known,  however,  the  elements  C^  can  be 
eliminated  from  the  tributary  matrix  and  R**  can  be  calculated  from: 


-  C 


i  B. 


K 


(208) 


Then  R^  is  used  to  make  adjustments  in  the  controlling  variables  Q  and  A 
in  the  normal  way. 

Flow  of  information 

i9?.  ihe  preceding  scheme  can  be  generalized  to  handle  any  arbitrary 
system.  The  tributary  passes  to  the  receiving  stream  the  values  T^  through 
T4  and  also  K  ,  the  junction  node.  The  receiving  stream  passes  back  to  the 
tributary  the  value  Aa  /Bv  ,  placing  it  into  T. .  In  the  general  case,  T  is 

IN.  K.  i 
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an  array  of  dimension  (4, NS)  where  NS  is  the  number  of  segments  in  the  net¬ 
work.  Other  arrays  involved  in  this  information-passing  process  are  JT(NS) , 
which  contains  the  junction  nodes;  ITO(NS);  ITl(NS);  and  IT2(NS).  The  array 
ITO(L)  tells  where  in  the  array  T  segment  L  should  place  its  tributary 
information  (ITO(L)  =0  if  L  is  not  a  tributary).  The  array  IT1(L)  gives  the 
index  within  the  array  T  of  information  from  the  first  tributary  entering 
segment  L,  and  IT2  gives  the  index  of  the  information  from  the  last  tributary. 
If  no  tributaries  enter  segment  L,  IT1  and  IT2  are  set  to  zero.  See  Figure  13 
for  an  example. 

200.  The  main  program  works  downstream  through  the  network,  and  for 
each  segment  L,  it  calls  subroutine  CALC  with  the  arguments  T,  JT,  ITO(L), 
IT1(I,),  and  IT2(L).  In  subroutine  CALC,  segment  L  picks  up  tributary 
information  from  T  between  the  indices  ITl  and  IT2.  The  matrix  solver  is 
called  and  upon  return,  segment  L  loads  its  own  information  into  T  at  index 
ITO.  The  solution  is  completed  by  sweeping  upstream  through  the  system;  for 
each  segment,  subroutine  NEW  is  called  with  the  same  arguments.  This  time  the 
segment  picks  up  information  from  T  at  index  ITO  and  distributes  information 
to  its  tributaries  at  indices  ITl  through  IT2. 

201.  One  sweep  down  and  one  sweep  up  determines  the  system.  No 
segment-wise  iteration  is  necessary.  Other  advantages  of  this  procedure  are 
that  (a)  it  allows  backwaters  up  tributaries;  (b)  the  coefficient  matrix  is 
assembled  and  solved  in  pieces  as  required;  and  (c)  since  a  banded-style 
solution  is  done,  the  number  of  operations  performed  is  of  order  N  ,  where  N 
is  the  total  number  of  nodes  in  the  system.  In  additic  ,  since  the  scheme  is 
generalized,  the  number  of  "bookkeeping"  operations  is  of  order  M  ,  where  M 
is  the  number  of  segments  in  the  system. 

Network  structure 

202.  The  user  provides  in  the  input,  NS  ,  the  total  number  of  segments 
and  then  for  each  segment  L  gives  (among  other  data),  FEEDS(I.)  and  JNODE(L) , 
that  is,  which  stream,  if  any,  this  segment  flows  into  and  the  node  on  the 
receiving  stream  at  which  the  junction  occurs.  If  the  two  segments  are  parts 
of  the  same  stream,  but  separated  by  a  control  structure,  the  input  field  of 
JNODE  is  left  blank  and  so  is  taken  to  be  zero. 

203.  From  these  data,  the  program  infers  the  network  structure., 
establishes  an  upstream  ordering  of  the  segments,  determines  where  boundary 
conditions  that  ore  passed  from  segment  to  segment  are  to  be  found,  and 
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establishes  the  packing  of  the  tributary-information-passing  arrays  JT  and  T. 
The  latter  is  done  by  fixing  the  values  of  ITO,  IT1,  and  IT2  for  each  segment. 

2C4.  The  program  begins  with  the  assumption  that  the  system  has  a 
single  terminus.  Only  one  segment,  the  last  segment  of  the  main  stem,  does 
not  flow  into  another  segment.  The  index  of  this  stream  is  the  first  entry  in 
the  array  ORDER.  Next  the  array  FEEDS  is  scanned  to  find  streams  that  feed 
into  this  first  stream,  and  they  are  successively  entered  into  ORDER.  Next, 
the  program  looks  at  the  second  entry  of  the  array  ORDER  and  scans  FEEDS  for 
streams  that  flow  into  it.  The  process  continues  until  the  array  ORDER  is 
completely  filled.  Whenever  a  match  is  found  between  a  tributary  J  and  its 
receiving  stream  M,  the  program  discriminates  between  JNODE  equal  to  zero  and 
JNODE  greater  than  zero.  In  the  former  case,  the  two  form  a  single  stream 
separated  by  a  control  structure.  The  segment  M  therefore  will  find  its 
upstream  boundary  condition  at  the  last  node  of  segment  J.  The  latter  is  the 
case  of  a  true  tributary.  Segment  J  will  find  its  downstream  boundary  con¬ 
dition  at  the  junction  node  on  M.  Also  a  new  slot,  IT,  is  called  for  the 
tributary-information  arrays  JT  and  T.  The  tributary  J  will  deposit  its 
information  in  slot  IT.  The  receiving  stream  M  will  withdraw  information  from 
slot  IT.  Using  the  definitions  of  ITO,  IT1 ,  and  IT2  given  above,  ITO(J)  is 
set  to  IT,  IT1(M)  is  set  to  IT  if  it  has  not  already  been  set,  and  IT2(M)  is 
set  to  IT. 

Boundary  conditions 
in  the  tributary  structure 

205.  For  each  segment,  the  user  specifies  what  types  of  boundary  condi¬ 
tions  will  apply  upstream  and  downstream.  Flow  or  stage  (designated  Q  or 

H)  may  be  given  upstream,  and  flow,  stage,  or  a  rating  curve  (designated  Q, 

I)  ,  or  R)  may  be  given  downstream.  The  default  at  both  ends  is  stage.  Based 
on  this  input,  the  program  assigns  a  value  of  one  through  six  to  LIB  for  that 
segment  (Table  3) . 

206.  The  network  structure  may,  however,  override  this  assignment.  A 
segment  downstream  of  a  control  structure  must  have  an  upstream  boundary  con¬ 
dition  of  flow.  A  segment  that  is  a  true  tributary  must  have  a  downstream 
boundary  condition  of  stage. 

207.  Once  the  types  of  boundary  conditions  are  established,  the 
question  is  where  the  values  of  the  boundary  conditions  are  to  come  from.  The 
answer  is  given  in  the  arrays  JBCU  and  JBCD  for  upstream  and  downstream. 
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respectively.  The  default  is  that  the  boundary  condition  is  time-invariant 
and  is  given  on  the  "segment"  card  of  the  input  deck  (see  Input  and  Output 
formats,  paragraphs  265-287).  In  this  case  JBCU  or  JBCD  is  :5iven  a  value  of 
zero.  The  second  possibility  is  that  they  are  supplied  in  the  "boundary  con¬ 
ditions"  cards.  The  user  indicates  to  the  program  which  boundary  conditions 
will  appear  there  by  means  of  the  "boundary  conditions  identification"  card. 
The  value  of  JBCU  or  JBCD  is  set  to  the  position  of  that  piece  of  data  on  the 
boundary  conditions  card.  Finally,  as  indicated  above,  the  boundary  condition 
may  come  from  within  the  system;  for  example,  the  downstream  boundary  condi¬ 
tion  for  segment  L  might  come  from  node  J.  In  this  case  JBCD(L)  is  set  to  -J. 

208.  When  it  is  time  to  disburse  boundary  conditions,  again  three  cases 
arise.  If  JBCU  or  JBCD  is  equal  to  zero,  the  boundary  condition  is  time- 
invariant,  and  no  change  is  made.  If  JBCU  or  JBCD  is  positive,  then  the 
boundary  condition  is  obtained  from  that  position  in  the  input  stream.  If 
JBCU  or  JBCD  is  negative,  the  boundary  condition  is  obtained  from  the  node 
number  -JBCU  or  -JBCD.  As  mentioned  previously,  an  internally  generated 
upstream  boundary  condition  must  be  a  flow.  An  internally  generated  down¬ 
stream  boundary  condition  must  be  a  stage.  Stage  at  the  junction  point  on  the 
receiving  stream,  however,  is  not  equal  to  stage  at  the  mount  of  the 
tributary — it  must  first  be  corrected  for  the  difference  in  bed  elevation 
between  the  two. 


Input  and  Output  Formats 


Input 

209.  Input  to  RIVlH  consists  of  nine  types  of  cards:  (a)  a  title  card, 
(b)  a  grid  card,  (c)  a  constant  card,  (d)  segment  cards,  (e)  initial  condi¬ 
tions  cards,  (f)  a  boundary  conditions  identification  card,  (g)  an  update 
card,  (h)  update  interval  cards,  and  (i)  boundary  conditions  cards.  The 
details  of  the  input  cards  are  discussed  in  the  following  paragraphs,  and  an 
example  is  given  in  Figure  15.  Output  consists  of  the  input  data  followed  by 
the  values  of  the  hydrodynamic  variables  for  every  node  of  each  segment  (one 
segment  per  page)  for  each  time-step  print  interval.  In  addition  to  printed 
output,  there  is  output  onto  disk  storage  for  later  use  by  RIV1Q  or  plotting 
programs . 
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SAMPLE  DATA  SET  -  USERS  MANUAL 
40,  520,  3 

&CONST  BETA-1.0,  GR-  32.17,  RMILE0-0. O.THETA  =0.67  , TOLER-O. 10, 
IPRINT-192 ,  &EN0 


1  MAIN 

STEM 

ABOVE  REREG 

DAM 

16  2 

Q 

Q  400.00 

4014. 

500. 

10.0 

0.0 

495.0 

690.0 

7.00 

2.0 

.050 

0.0 

0.625 

0.025 

5248. 

500. 

10.2 

0.0 

494.0 

153.0 

3.40 

2.0 

.050 

0.0 

0.600 

0.010 

3983. 

500. 

10.8 

0.0 

492.0 

80.0 

5.70 

2.0 

.050 

0.0 

0.000 

0.000 

4334. 

623. 

10.2 

0.0 

485.0 

185.0 

2. 10 

2.0 

.050 

0.0 

0.000 

0.000 

4428. 

750. 

10.4 

0.0 

484.0 

240.0 

2.10 

2.0 

.050 

0.0 

0.000 

0.000 

4428. 

750. 

10.4 

0.0 

479.0 

300.0 

1.85 

2.0 

.050 

0.0 

0.000 

0.000 

4933. 

750. 

10.8 

0.0 

474.0 

355.0 

1.60 

2.0 

.050 

0.0 

0.000 

0.000 

3667. 

750. 

10.9 

0.0 

472.0 

175.0 

3.20 

2.0 

.050 

0.0 

0.000 

0.000 

4200. 

750. 

10.7 

0.0 

472.0 

225.0 

0.70 

2.0 

.050 

0.0 

0.000 

0.000 

4200. 

750. 

10.7 

0.0 

470.0 

224.0 

0.80 

2.0 

.050 

0.0 

0.000 

0.000 

4200. 

750. 

10.7 

0.0 

468.0 

223.0 

0.90 

2.0 

.050 

0.0 

0.000 

0.000 

4200. 

750. 

10.5 

0.0 

466.0 

221.0 

1.00 

2.0 

.050 

0.0 

0.500 

0.010 

4664. 

750. 

10.5 

0.0 

463.5 

220.0 

1.10 

2.0 

.050 

0.0 

0.000 

0.000 

4664. 

750. 

10.4 

0.0 

460 . 5 

215.0 

1.80 

2.0 

.050 

0.0 

0.000 

0.000 

4664. 

750. 

10.5 

0.0 

457.5 

210.0 

2.50 

2.0 

.050 

0.0 

0.000 

0.000 

4352. 

750. 

10.4 

0.0 

455.0 

205.0 

3.20 

2.0 

.050 

0.0 

0.000 

0.000 

2  MAIN 

STEM 

BELOW  REREG 

DAM 

18 

Q  400. 

H  15.00 

4352. 

750. 

10.2 

0.0 

455.0 

203.0 

2.80 

2.0 

.050 

0.0 

0.550 

0.011 

4352. 

750. 

10.9 

0.0 

455.0 

200.0 

2.40 

2.0 

.050 

0.0 

0.000 

0.000 

4352. 

750. 

10.5 

0.0 

455.0 

198.0 

2.00 

2.0 

.050 

0.0 

0.000 

0.000 

3733. 

750. 

10.8 

0.0 

455.5 

195.0 

1.60 

2.0 

.050 

0.0 

0.000 

0.000 

3733. 

750. 

10.8 

0.0 

453.5 

200.0 

1.30 

2.0 

.050 

0.0 

0.000 

0.000 

3733. 

750. 

10.6 

0.0 

451.5 

205.0 

1.00 

2.0 

.050 

0.0 

0.000 

0.000 

4498. 

750. 

10.2 

0.0 

449.0 

210.0 

0.60 

2.0 

.050 

0.0 

0.000 

0.000 

4498. 

750. 

10.3 

0.0 

445.0 

225.0 

0.90 

2.0 

.050 

0.0 

0.000 

0.000 

4498. 

750. 

10.4 

0.0 

442.0 

245.0 

1.30 

2.0 

.050 

0.0 

0.000 

0.000 

4498. 

750. 

10.9 

0.0 

439.0 

260.0 

1.60 

2.0 

.050 

0.0 

0.000 

0.000 

5772. 

750. 

10.4 

0.0 

435.5 

280.0 

2.00 

2.0 

.050 

0.0 

0.000 

0.000 

5772. 

750. 

10.8 

0.0 

434.5 

300.0 

2.00 

2.0 

.050 

0.0 

0.000 

0.000 

5772. 

750. 

10.5 

0.0 

433.5 

325.0 

2.00 

2.0 

.050 

0.0 

0.000 

0.000 

5772. 

750. 

10.3 

0.0 

432.5 

345.0 

2.00 

2.0 

.050 

0.0 

0.000 

0.000 

5140. 

750. 

10.2 

0.0 

432.5 

370.0 

1.60 

2.0 

.050 

0.0 

0.000 

0.000 

5140. 

750. 

10. 1 

0.0 

428.5 

610.0 

1.75 

2.0 

.050 

0.0 

0.000 

0.000 

5140. 

750. 

15.0 

0.0 

424.5 

850.0 

1.90 

2.0 

.050 

0.0 

0.000 

0.000 

4450. 

750. 

15.0 

0.0 

420.01100.0 

2.10 

2.0 

.050 

0.0 

0.000 

0.000 

3  TRIBUTARY 

UPSTRM  i 

OF  REREG 

6  1 

4Q  250 

H 

45  J 

2564. 

250. 

10.5 

0.0 

488.5 

177.0 

3.00 

2.0 

0.04 

0.0 

0.500 

0.010 

2970. 

250. 

10.2 

0.0 

488.0 

40.0 

1.90 

2.0 

0.04 

0.0 

0.000 

0.000 

2970. 

250. 

10.5 

0.0 

484.8 

143.0 

2.10 

2.0 

0.04 

0.0 

0.000 

0.000 

2793. 

250. 

10.7 

0.0 

481.5 

147.0 

2.30 

2.0 

0.04 

0.0 

0.000 

0.000 

1977. 

250. 

10.7 

0.0 

482.5 

212.0 

1.80 

2.0 

0.05 

0.0 

0.000 

0.000 

100.0 

250. 

10.7 

0.0 

482.5 

250.0 

2.40 

2.0 

0.05 

0.0 

0.000 

0.000 

+  1/ 

23 

96 

120 

144 

164 

184 

200 

220 

2&0 

260 

280 

300 

320 

340 

350 

370 

390 

400 

420 

440 

460 

480 

500  520 


450.  500. 

450.  500. 

Figure  15.  Sample  RIV1H  input  (Continued) 
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450. 

500. 

450. 

600. 

450. 

COO. 

450. 

600. 

450. 

600. 

450. 

700. 

450. 

700. 

450. 

800. 

450. 

800. 

450. 

700. 

450. 

700. 

450. 

700. 

450. 

700. 

450. 

600. 

450. 

500. 

450. 

400. 

450. 

400. 

450. 

400. 

450. 

400. 

450. 

400. 

450. 

400. 

Figure  15.  (Concluded) 


210.  Title  card.  The  user  has  the  full  80  columns  of  the  title  card  to 
write  any  appropriate  title.  It  will  be  printed,  verbatim,  at  the  top  of 
every  page. 

211.  Grid  card.  The  grid  card  defines  the  total  number  of  nodes,  time- 
steps,  and  segments  in  the  run.  The  three  numbers  can  appear  anywhere  on  the 
card  and  can  be  separated  by  a  comma  or  blanks  or  both,  but  they  must  appear 
in  the  following  order:  nodes,  time-steps,  segments.  Note  also  that  these 
numbers  correspond  to  grid  lines,  not  intervals.  For  instance,  if  the  study 
area  extends  from  river  mile  1.0  to  river  mile  0.0  with  0.1  mile  reaches,  the 
number  of  nodes  is  11,  not  10.  The  same  applies  to  time-steps. 

212.  Constant  card.  There  are  six  variables  that  may  be  assigned  val¬ 
ues  on  the  constant  card:  RKILE0,  THETA,  TOLER,  GR,  1PR1NT,  and  BETA.  The 
variable  RMILE0  is  the  river  mile  of  the  first  node.  The  variable  THETA  is 
the  weighting  factor  (see  "The  Governing  Equation,"  paragraphs  55-58). 
Historically,  models  of  this  type  have  used  a  value  of  0,55  or  greater  for 
stability  reasons.  This  is  the  default  RIV1H  uses. 

213.  With  some  applications,  a  value  of  THETA  higher  than  0.55  (between 
0.55  and  1.0)  may  be  desirable  to  reduce  parasitic  oscillations  (Liggett  and 
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Cunge  1975).  Parasitic  oscillations,  which  are  actually  numerical  dispersion 
or  phase  errors  associated  with  short  waves,  can  cause  modeling  problems  when 
the  parasitic  oscillation  is  on  the  same  order  of  magnitude  as  the  depth  (a 
negative  depth  can  result).  Values  of  THETA  between  0.6  and  0.75  have  been 
used  to  reduce  these  oscillations  without  significant  loss  of  accuracy.  How¬ 
ever,  accuracy  does  decrease  as  THETA  is  increased  because  of  i?  .reased  numer¬ 
ical  dampening.  The  requirement  for  numerical  stability  is  0.5  <  0  <  1.0  . 

214.  The  variable  TOLER  is  the  maximum  acceptable  relative  tolerance 
used  by  the  program  to  decide  whether  another  iteration  is  necessary.  The 
default  value  is  0.001;  that  is,  iteration  will  stop  when  the  difference 
between  current  and  previous  estimates  of  flow  and  area  for  every  node  are 
less  than  0.001  times  the  root  mean  square  of  all  flows  and  areas,  respec¬ 
tively,  throughout  the  system.  If  the  user  desires  greater  accuracy  and  has  a 
stable  system,  a  lower  value  of  TOLER  may  be  desired.  Conversely,  if  the  user 
requires  less  accuracy  and  swifter  computation  time,  then  a  higher  value  may 
be  desired,  such  as  0.1.  This  value  has  yielded  acceptable  accuracy.  It 
should  be  pointed  out  that  TOLER  is  a  control  on  precision  from  one  time-step 
to  the  next — not  from  the  beginning  of  the  run  to  the  end. 

215.  The  variable  GR  is  acceleration  caused  by  gravity.  Its  default 

2 

value  is  32.174  ft/sec  .  If  the  user  wishes  to  make  a  run  in  SI  units,  then 

2 

GR  should  be  set  at  9.80  m/sec  .  Several  things  to  keep  in  mind  in  this  case 
are  that  the  river  miles  in  the  output  are  meaningless,  the  Manning's  coeffi¬ 
cient  must  be  multiplied  by  1.49,  and  the  output  is  not  usable  in  RIV1Q.  The 
variable  IPRINT  is  the  print  interval  (number  of  time-steps  between  prints) 
for  output  file  6.  The  variable  BETA  is  the  momentum  correction  factor,  with 
a  default  value  of  1.0. 

216.  The  form  of  the  constant1- card  is  as  follows.  The  first  space  is 
left  blank.  Columns  2  through  7  contain  &C0NST.  Next  are  the  names  of  each 
variable  followed  by  an  equals  sign  followed  by  the  value  the  user  wishes  to 
assign.  If  the  user  is  content  with  the  default  value,  then  that  variable 
need  not  appear  on  the  constant  card.  Assignments  are  separated  by  commas. 

At  the  end  of  the  list,  anywhere  on  the  card,  the  expression  &END  is  placed 
(see  Figure  15). 

217.  Segment  card.  On  the  segment  card,  the  user  specifies  segment- 
specific  data:  ID,  the  identification  number;  SNAME,  the  name;  NNODE,  the 
number  of  nodes  in  this  segment;  FEEDS,  which  segment  it  flows  into,  if  any; 
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JNODE,  the  number  of  the  junction  node  on  the  receiving  stream;  BTU,  the  type 
of  boundary  condition  imposed  at  the  upstream  end;  BCU,  a  value  for  that 
boundary  condition  if  it  is  time-invariant;  BTD,  the  type  of  boundary  condi¬ 
tion  imposed  on  the  downstream  end;  BCD,  a  value  for  that  boundary  condition 
if  it  is  time-invariant;  and  COSP,  the  junction  angle  in  degrees  if  the  seg¬ 
ment  is  a  tributary.  The  format  is 

I2,10A4,3I3,2(A1,F8.0),F8.0. 

The  choice  of  identification  number  and  the  ordering  of  the  segment  cards  are 
arbitrary.  The  only  constraint  is  that  identification  numbers  used  here  must 
be  consistent  with  those  used  in  the  water  quality  model  and  they  must  be  pos¬ 
itive.  The  segment  name  can  be  up  to  40  characters  long.  It  has  no  use  in 
the  model  other  than  labeling  output.  NNODE  counts  the  total  number  of  nodes 
in  the  segment,  which  is  one  more  than  the  number  of  reaches.  FEEDS  refers  to 
the  receiving  stream  by  its  identification  number.  JNODE  refers  to  the  junc¬ 
tion  node  on  the  receiving  stream,  starting  with  the  first  node  of  the  stream 
equal  to  one.  Referring  to  Figure  13,  JNODE  for  Segment  1  would  be  10.  When 
two  segments  are  actually  part  of  the  same  stream  but  separated  by  a  control 
structure,  JNODE  is  left  blank  (control  structures  are  not  permitted  within  a 
segment,  only  at  the  boundaries).  The  boundary  type  H  signifies  stage, 
depth  above  bottom  (and  is  the  default) ,  Q  signifies  flow,  and  R  signifies 
a  rating  curve.  A  rating  curve  is  not  a  permissible  upstream  boundary  condi¬ 
tion.  The  value  of  the  boundary  condition  is  in  feet  for  stage  and  cubic  feet 
per  second  for  flow.  COSP  is  the  angle  formed  by  the  tributary  junction,  in 
degrees.  See  Figure  13  for  the  sense  of  this  angle.  In  the  case  of  a  rating 
curve  of  the  form 


H  =  C0EF*Q 


EXPO 


(191  bis) 


The  exponent  EXPO  is  given  in  place  of  BCD  and  COEF  in  place  cf  COSP.  There 
is  no  conflict  as  a  tributary  cannot  be  terminated  by  a  rating  curve.  If 
instead  the  rating  curve  is  of  the  form  Q  =  aHL  ,  then  set  EXPO  =  1/b  and 
COEF  =  a(~1/b)  . 

218.  Initial  conditions  card.  Each  segment  card  is  followed  by  a  set 
of  initial  conditions  cards,  one  per  node.  Twelve  pieces  of  data  can  appear 
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on  each  initial  conditions  card.  Each  number  can  occupy  a  field  of  six.  Any 
right-justified  number  without  a  decimal  point  will  be  taken  as  having  a  deci¬ 
mal  point  at  the  end  (e.g.,  25  will  be  read  as  25.0).  Any  value  not  specified 
will  be  taken  as  zero.  These  pieces  of  data  are,  in  order:  length  of  the 
reach  downstream  from  the  node  in  feet  (DX1) ;  flow  in  cubic  feet  per  sec¬ 
ond  (Q) ;  stage-height  of  water  above  the  channel  bottom  in  feet  (H) ;  lateral 
inflow  in  cubic  feet  per  second  per  foot  (QL)  (flow  divided  by  DX1);  streambed 
elevation  relative  to  some  datum  in  feet  (Z,  initially  EL  is  used  and  moved 
into  Z  array),  (Cl),  (C2) ,  and  (C3)  constants  in  the  cross-section  formula 
(see  Cross-Section  Formulas,  paragraphs  181-185);  Manning’s  coefficient  for 
the  reach  downstream  of  the  node  (CN1);  constriction  energy  loss  coefficient 
for  the  reach  downstream  of  the  node  (KE1) ;  intercept  of  the  linear  equation 
relating  Manning's  n  to  depth  of  flow  in  the  stream  (AX);  and  the  slope 
(DNDH)  of  the  linear  equation  relating  Manning's  n  to  depth.  The  term  KE1 
should  be  used  only  when  there  is  a  rapid  constriction  in  the  channel  and  only 
after  it  has  been  determined  that  refining  the  grid  work  in  the  area  of  the 
constriction  is  infeasible.  Values  for  KE1  range  from  0.0  to  0.5,  with  the 
higher  value  associated  with  abrupt  constriction. 

219.  Manning's  n  at  a  cross-section  can  vary  with  flow  conditions  in 
many  streams.  High  values  may  be  more  representative  for  shallow-depth  condi¬ 
tions  whereas  lower  values  may  be  appropriate  for  deeper  flow.  For  time- 
varying  flow  conditions,  a  variable  Manning's  coefficient  may  have  to  be 
adjusted  as  a  function  of  depth  during  the  simulation.  Typically,  shoal  areas 
exhibit  a  variable  n  that  can  have  a  significant  effect  on  computed  stage; 
at  low  stage,  n  is  usually  larger  than  at  high  stage.  If  the  user  wishes  to 
allow  for  variable  Manning's  coefficients,  the  values  of  AX  and  DNDH  in 
the  input  data,  which  appear  on  the  Initial  Conditions  card,  should  be  set  to 
the  appropriate  values.  If  the  user  chooses  not  to  vary  Manning's  n  ,  these 
values  should  be  set  to  0.  The  equation  relating  Manning's  n  to  depth  is 
XMAN  =  AX  -  DNDH*H  where  H  is  the  value  for  depth  at  a  particular  node. 
During  initiation,  XMAN  is  set  to  the  original  value  (CN1)  at  that  node.  As 
the  program  executes,  XMAN  is  adjusted  with  relation  to  depth  over  time.  If 
at  some  point  during  the  execution,  the  value  of  XMAN  becomes  less  than  0.01, 
XMAN  is  reset  to  0.01.  If  this  event  occurs,  a  message  is  printed  to  the 
diagnostic  file,  FILE7.  The  first  location  in  the  code  where  the  adjusted 
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Manning’s  values  occur  is  several  lines  after  statement  301  while  the  second 
location  is  several  lines  after  statement  170. 

220.  Boundary  conditions  identification  card.  On  the  boundary  condi¬ 
tions  identification  card,  the  user  indicates  which  boundary  conditions  will 
be  given  on  the  boundary  conditions  cards.  As  an  example,  consider  a  system 
with  two  segments  separated  by  a  control  structure  where  Segment  1  is  the 
reach  above  the  structure  and  Segment  2  is  the  reach  below.  The  upstream  and 
downstream  boundary  conditions  will  be  specified  for  Segment  1,  whereas  the 
downstream  boundary  condition  will  be  specified  for  Segment  2.  The  upstream 
boundary  condition  for  Segment  2  (below  the  control  structure)  is  determined 
internally  by  the  program.  The  card  would  appear  as 


+1,-1, -2/ 


with  the  numbers  being  the  ID  numbers,  the  positive  sign  standing  for 
upstream,  and  the  negative  for  downstream.  The  list  must  be  terminated  by  a 
slash. 

221.  Update  card.  On  the  update  card,  the  user  indicates  the  total 
number  (NUM)  of  boundary  condition  updates.  The  format  is  110.  In  the 
following  cards,  a  total  of  NUM  boundary  condition  update  intervals  and  NUM 
boundary  condition  cards  must  be  provided. 

222.  Update  interval  card.  On  the  update  interval  card,  the  user 
indicates  the  maximum  time-step  number  for  which  the  associated  boundary  con¬ 
dition  card  applies.  In  the  example  data  set  (Figure  15),  the  first  line  of 
boundary  conditions  would  apply  to  the  first  96  model  time-steps,  the  second 
line  for  time-steps  97  through  120,  etc.  There  must  be  NUM  update  intervals 
specified.  The  format  for  these  cards  is  7110. 

223.  Boundary  condition  cards.  There  is  one  boundary  conditions  card 
for  each  update  interval  specified  (a  total  of  NUM,  specified  on  the  update 
card).  The  first  piece  of  data  is  the  time-step  in  seconds.  Following  this 
information  are  the  values  of  the  boundary  conditions,  given  in  the  order 
indicated  on  the  boundary  conditions  identification  card.  The  maximum  itera¬ 
tion  number  that  a  given  boundary  condition,  or  time-step,  applies  is  indi¬ 
cated  on  the  update  interval  card.  The  format  is  7F10.0, 
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Output 


224.  Output  from  RIV1H  consists  of  several  files.  One  of  the  files. 
File  6,  consists  of  the  input  data  and  the  simulation  results  at  specified 
print  intervals.  The  simulation  results  contain  the  information  for  each  seg¬ 
ment  at  each  time-step  print  interval,  one  segment  per  page.  At  the  top  of 
the  page  appears  the  program  title.  The  next  line  prints  the  run  title  as 
supplied  by  the  user.  On  the  following  lines  are  the  time-step  number  and  the 
elapsed  time  in  the  simulation,  in  hours  and  minutes  followed  by  the  segment 
ID  number  and  name.  Below  that  are  column  headings  and  data  for  river  mile, 
flow  (cubic  feet  per  second),  area  (feet),  width  (feet),  stage  (feet),  and 
water  surfavte  elevation  (feet)  (Figure  16). 

225.  Another  output  file  is  in  standard  FORTRAN  unformatted  records 
used  as  input  to  RIV1Q  and  is  written  to  File  8.  The  records  are  organized  as 
follows: 


Record  1  MNODE,MTIME,NS 

Record  2  JT,IT0,ITI,IT2,NN0DE,N0DE1 ,ID, JBCU 

Record  3  DX1 ,QL,RMILE 

Record  4  DT,Q,A,B,EL 

where  all  variables  are  arrays  except  for  MNODE,  MTIME,  NS,  and  DT.  Record  4 
is  contained  in  the  array  HYDRO  (with  exceptions  of  DT)  and  is  written  every 
time-step,  as  this  information  is  required  to  drive  RIV1Q  and  plot  hydro- 
dynamic  output.  All  succeeding  records  are  identical  to  Record  4  but  for  suc¬ 
ceeding  time-steps.  A  diagnostics  output  file  (File  7)  is  generated  under 
certain  conditions  during  the  execution  of  RIV1H.  If  the  Courant  number 
becomes  less  than  1.0,  if  Manning's  n  becomes  less  than  or  equal  to  0.01,  or 
if  the  depth  goes  below  0.0,  then  a  message  is  written  to  File  7  telling  the 
user  at  which  node  this  event  occurred.  If  the  program  has  trouble  converg¬ 
ing,  a  diagnostic  message  is  written  to  File  7,  allowing  the  user  to  examine 
the  node  at  which  nonconvergence  is  occurring. 

Special  considerations 

226.  Upland  streams  characterized  by  riffles  and  pools  can  be  difficult 
to  model  with  hydraulic  routing  models,  such  as  RIV1H.  Generally,  two  types 
of  problems  may  be  encountered:  start-up  of  the  model  and  phase  errors 
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Figure  16.  Sample  RIV1H  output  for  a  segment  (Sheet  1  of  6) 
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Figure  16.  (Sheet  2  of  6) 
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Figure  16.  (Sheet  6  of  6) 


associated  with  unsteady  flow  waves.  Streams  with  riffle  sections  accentuate 
these  problems. 

227.  If  inaccurate  initial  depths  are  selected  for  the  initial  flows, 
the  model  will  have  trouble  getting  started.  If  good  initial  estimates  of 
depths  are  not  available,  it  is  best  to  run  the  model  for  a  steady-state  flow 
condition  using  deeper  than  expected  conditions.  With  a  constant  inflow  rate 
and  either  a  constant  head  or  rating  curve  downstream,  the  water  surface  in 
the  segment  will  eventually  drop  to  a  steady-state  water  surface  profile  cor¬ 
responding  to  that  flow,  channel  geometry,  and  bed  roughness.  If  problems  are 
still  encountered  starting  the  model,  the  use  of  small  time-steps,  at  least 
initially,  has  helped.  After  a  steady-state  flow  and  water  surface  profile 
has  been  achieved,  it  is  best  to  use  these  results  to  start  subsequent 
simulations. 

228.  Phase  errors  (see  Constant  Card,  paragraphs  212-216),  which  may 
accompany  unsteady  flow  waves,  can  result  in  negative  depths  (usually  in  or 
near  shallow  riffle  sections).  If  this  happens,  a  fatal  execution  error 
occurs,  and  the  program  is  stopped.  Several  things  can  be  done  to  eliminate 
this  problem.  First,  make  sure  that  the  cross-sectional  area  is  adequately 
described,  especially  at  low  stage.  Next,  check  the  value  of  THETA  (see  Con¬ 
stant  Card,  paragraphs  212-216);  a  higher  value  (e.g.  0.75)  may  help.  If 
problems  are  still  encountered,  it  may  be  necessary  to  change  the  time-step 
such  that  the  surface  wave  Courant  number  is  closer  to  1.0.  As  values  of  this 
number  decrease  below  or  increase  above  1.0,  phase  errors  become  worse  (Lyn 
and  Goodwin  1987,  Liggett  and  Cunge  1975).  The  surface  Courant  number  is 
defined  as 


U  At 


where 

Us  •-  speed  of  the  surface  wave  =  /gd 
d  =  water  depth 
At  =  time-step  size 
Ax  =  spatial  step  size 
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The  same  result  can  be  achieved  by  adjustment  of  the  spatial  steps.  If  these 
measures  are  not  successful,  ramping  of  the  inflow  hydrograph  to  yield  a 
gentler,  longer  wave  will  usually  reduce  phase  errors  since  the  unsteady  flow 
waves  ore  more  spread  out.  As  an  example,  hydropower  turbines  can  come  up  to 
full  power  in  about  5  min;  peaking  hydropower  releases  can  result  in  highly 
unsteady  flow  waves  in  the  receiving  stream.  It  may  be  necessary  to  spread 
out  the  generation  start-up  over  15  to  30  min.  Judicious  smoothing  of  the 
inflow  hydrograph  can  be  accomplished  without  jeopardizing  study  objectives. 
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PART  VIII:  THE  WATER  QUALITY  CODE  (RIV1Q) 


229.  The.  water  quality  program  contains  sever  subroutines  in  addition 
to  the  main  program.  The  main  program  sets  up  the  flexible  dimensioning  of 
arrays,  as  is  done  in  the  hydrodynamic  program.  Subroutine  MAIN2  handles  all 
input  and  output  and  the  organization  of  the  tributary  structure.  As  noted  in 
Part  IV,  RIV1Q  achieves  its  fourth-order  accuracy  by  advecting  derivatives  as 
well  as  concentrations.  Initial  concentrations  are  given  by  the  input  data, 
but  initial  derivatives  must  be  estimated  from  these  data.  Subroutine  MAIN2 
calls  subroutine  SPLINE  to  pass  a  cubic  spline  through  the  data  points,  from 
which  this  estimate  is  obtained.  The  algorithm  for  constructing  a  cubic 
spline  produces  a  tridiagonal  matrix,  which  is  solved  by  subroutine  TRIDAG. 

At  each  step  of  the  time  march,  MA1H2  proceeds  through  the  tributary  network 
in  a  downstream  order  (see  Tributaries,  paragraphs  189-192),  assigning  appro¬ 
priate  boundary  conditions  for  each  segment  and  calling  subroutine  SEG  to  com¬ 
plete  the  solution.  At  the  completion  of  the  last  time-step,  the  program 
checks  the  input  data  stream  for  requests  for  sensitivity  analyses.  With  each 
request,  the  entire  simulation  is  rerun  with  new  parameter  values  as  indi¬ 
cated.  At  the  exhaustion  of  sensitivity  analyses,  the  program  ends. 

230.  The  major  loops  of  the  program  are,  in  order  of  nesting,  the  sen¬ 
sitivity  analysis,  time,  segment,  node,  and  constituent.  The  program  handles 
up  to  a  maximum  of  10  constituents,  depending  on  the  input:  temperature 
(TEMP),  CBOD,  organic  nitrogen  (ORGAN),  ammoniacal  nitrogen  (NK3-N) ,  nitrate 
nitrogen  (N03-N) ,  phosphate  (P04),  DO,  coliform  bacteria,  dissolved  iron,  and 
dissolved  manganese  (label,  units,  and  kinetic  constants  supplied  by  the 
user).  Minor  loops  of  the  program  cycle  through  segments,  nodes,  or 
constituents  as  appropriate.  A  flowchart  is  shown  in  Figure  17. 

Structure  of  RIV1Q 


231.  RIV1Q  takes  advantage  of  several  non-ANSI  FORTRAN  features,  such 
as  namelist  input  and  output  and  implicit  type  specification.  All  nonstandard 
features  of  this  program  are  covered  in  Appendix  A.  Structured  as  a  guided 
tour,  this  section  is  best  read  concurrently  with  the  program  listing  in 
Appendix  C. 
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The  MAIN  program 

232.  The  main  program  in  RIV1Q  serves  to  apportion  storage  in  the  same 
way  as  it  does  in  RIV1H.  The  major  difference  is  that  whereas  the  grid  infor¬ 
mation  for  the  hydrodynamic  program  comes  from  the  input  deck,  the  water 
quality  model  obtains  its  grid  information  from  the  hydrodynamic  model.  Three 
variables  determine  the  total  array  storage  required  by  the  program:  IND1, 
the  total  number  of  computational  nodes;  INP2,  the  number  of  time-steps 
excluding  initial  conditions;  and  NS,  the  number  of  modeled  segments.  Total 
array  storage  held  in  the  common  storage  array  DJ  is  103*NS  +  67*IND1 

+  10*NS*IND2  .  The  main  program  calls  subroutine  MAIN2  and  terminates  on 
return. 

Subroutine  MAIN2 

233.  Subroutine  MAIN2  performs  the  bulk  of  the  work  for  the  rest  of  the 
program.  It  receives  in  its  argument  list  the  positions  within  the  COMMON 
array  DJ  of  all  its  flexibly  dimensioned  arrays.  The  structure  of  the  argu¬ 
ment  list  and  dimension  statement  is  such  that  several  arrays  are  overlain  in 
to  optimize  input.  The  input  array  HYDR01  receives  hydrodynamic  information 
from  RIV1H  at  odd  time-steps  and  HYDR02  at  even  time-steps.  These  input 
arrays  are  overlain  by  the  individual  hydrodynamic  variables  Q,  A,  B,  and  EL; 
for  instance,  the  array  Q  is  positioned  such  that  Q ( 1 )  lies  at  the  beginning 
of  HYDRO 1  and  Q(IND1*4  +  1)  lies  at  the  beginning  of  HYDRO 2 .  The  multiplier 
of  4  in  the  index  is  to  allow  room  for  the  arrays  A,  B,  and  EL.  In  this  way, 
hydrodynamic  data  can  be  read  in  a  block,  but  used  individually. 

234.  Because  of  all  the  K-rates  used,  all  variables  whose  names  begin 
with  the  letter  "K"  are  implicitly  declared  real.  Label,  units,  and  format 
arrays  are  declared  double  precision  and  initialized.  A  few  parameters  are 
explicitly  declared  real.  The  array  CP,  an  array  of  flags  to  indicate  the 
presence  or  absence  of  each  of  the  10  constituents,  is  declared  logical  and 
initialized  to  false.  The  DATA  statements  assign  default  values  to  parameters 
when  reasonable,  zero  otherwise.  The  NAMELIST  statement  gives  the  list  of 
variables  whose  value  can  be  specified  by  namelist  input. 

235.  The  first  item  in  the  input  stream  is  the  title  card.  Then  for 
each  segment,  the  program  reads  the  segment  card,  the  constant  card(s),  and 
initial  conditions  cards.  The  computational  nodes  are  stored  in  a  1-D  array, 
even  though  they  are  handled  segment  by  segment.  The  node  number  is  ini¬ 
tialized  at  1,  and  the  segment  loop  is  entered.  The  segment  card  is  read,  and 
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then  the  constant  card.  On  the  constant  card,  the  user  indicates  the  name  and 
value  of  any  parameter  whose  default  value  is  to  be  overridden.  Most  of  these 
parameters  can  be  stream-specific,  but  need  not  be.  The  program  is  set  up  so 
that  the  assignments  on  the  first  segment’s  constant  card  apply  to  every  seg¬ 
ment,  but  assignments  on  the  constant  cards  of  subsequent  segments  apply  only 
to  that  segment.  This  setup  is  handled  by  looping  through  all  the  segments 
(1  to  NS)  for  the  first  segment's  card  but  only  one  (L  to  L)  for  subsequent 
segments.  Each  of  these  segment-specific  parameters  is  packed  into  the  array 
PARM.  Lateral  inflow  concentrations  go  into  CL.  The  parameter  assignment 
section  also  takes  care  of  conversion  from  customary  American  units  (feet, 
seconds)  to  SI  (metres,  days).  Based  on  lateral  inflow  concentrations  or 
in  situ  sources,  the  presence/absence  flags  can  be  set  to  .TRUE.  . 

236.  Following  the  constant  card  are  the  initial  conditions  cards,  one 
for  each  node  in  the  segment.  The  initial  concentrations  are  stored  in  the 
array  INIT  so  that  they  can  be  reused  with  each  sensitivity  analysis. 

237.  Not  every  segment  receives  boundary  conditions  from  the  input  data 
stream;  specifically,  those  segments  below  control  structures  receive  their 
boundary  conditions  from  the  segment  immediately  above.  Those  segments  that 
will  receive  their  boundary  conditions  from  the  input  data  stream  are  indi¬ 
cated  on  the  boundary  conditions  identification  card  in  the  order  that  the 
respective  boundary  conditions  cards  will  appear.  The  program  then  reads  in 
all  the  boundary  conditions,  storing  them  in  the  array  BOUND  for  later  reuse. 
It  tests  for  the  presence  of  each  of  the  10  constituents  in  the  array  BOUND. 

238.  The  program  refers  to  segments  according  to  the  order  they  appear 
in  the  input  deck,  but  the  user  refers  to  each  segment  by  its  ID  number.  The 
logic  must  make  the  appropriate  translation  wherever  such  references  occur. 
Similarly,  it  is  convenient  for  the  user  to  give  the  ID  number  of  each  of  the 
segments  for  which  boundary  conditions  are  given;  this  information  is  stored 
in  the  array  IBC.  For  the  program,  however,  it  is  more  convenient  to  know 
where  the  boundary  conditions  for  each  segment  are  to  be  found.  This  cross- 
reference  type  of  information  is  given  in  the  array  JBC. 

239.  Distance  increments  (DX1) ,  lateral  inflows  (OL) ,  and  rivermil.es 
(RMILE)  are  time-invariant  and  so  are  read  in  from  the  hydrodynamic  model 
outside  of  the  time-march  loop. 

240.  The  date  of  program  execution  is  called  so  that  it  can  be  printed 
on  the  output.  The  times  of  the  start  of  the  simulation,  dawn,  and  sunset  are 


134 


converted  to  HH.MM  (hours  and  minutes)  format  to  fractions  of  days;  for 
instance,  7:12  p.m.  would  be  given  as  19.12  and  converted  to  0.8  days.  Ini¬ 
tial  and  boundary  conditions  are  written  out  as  they  were  read  in,  but  without 
separation  into  segments. 

241.  The  sensitivity-analysis  loop  is  entered  and  is  allowed  a  maximum 
of  five  passes.  Once  inside,  the  first  task  is  to  assign  concentrations  from 
the  array  INIT  and  test  for  the  presence  of  each  of  the  10  constituents.  This 
completes  the  presence  tests  that  allow  for  the  construction  of  the  label, 
unit,  and  object-time  format  arrays.  Labels  are  packed  into  the  array  BLABEL, 
and  units,  into  the  array  BUNIT.  The  object-time  format  array  is  packed  so 
that  CBOD  and  DO  are  printed  to  one  decimal  place  (corresponding  to  analytical 
accuracy);  all  other  constituents  to  two  places. 

242.  The  running  parameters  of  photoperiod,  elapsed  time,  and  clock 
time  are  initialized.  If  the  simulation  begins  during  daylight  hours,  the 
sine  of  the  incident  light  is  calculated  for  use  in  algal  productivity 
calculations. 

243.  As  mentioned  previously,  the  fourth-order  method  requires  initial 
derivatives  as  well  as  concentrations,  although  the  user  would  have  no 

a  priori  knowledge  about  them.  Subroutine  SPLINE  is  called  to  estimate  deriv¬ 
atives  at  each  point  based  on  a  cubic  spline  through  the  data.  The  spline  is 
constructed  one  segment  at  a  time. 

244.  Hydrodynamic  data  for  the  initial  conditions  are  read  and  con¬ 
verted  from  customary  American  to  SI  units.  The  program  calls  subroutine  SEG 
to  set  initial  rate  constants.  Since  actual  transport  and  decay  processes  are 
not  calculated  at  this  point  (this  is  indicated  to  the  subroutine  by  setting 
DT  =  0.),  boundary  conditions  are  not  passed,  and  the  ordering  of  the  segments 
is  unimportant. 

245.  The  main  time-march  loop  begins  with  setting  MBC,  the  index  to  t’"e 
boundary  conditions  array,  for  this  time-step.  The  program  determines  if  the 
time-step  is  odd  or  even  and  accordingly  reads  hydrodynamic  data  into  HYDR01 
or  HYDR02  and  sets  the  hydrodynamic  array  pointers  L0  and  LI .  The  solution 
algorithm  in  this  fourth-order  scheme  is  explicit,  and  so  only  one  time  level 
of  information  is  required  at  any  step.  Hydrodynamic  information,  however, 
must  be  read  in  blocks,  and  two  complete  blocks  must  be  available  at  every 
step. 
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246.  To  ensure  proper  passing  of  boundary  conditions,  subroutine  SEG  is 
called  for  each  segment,  working  through  the  network  in  a  downstream  order. 
Boundary  conditions  are  required  for  every  segment,  either  from  the  input 
stream  (JBC  >  0)  or  passed  down  from  another  segment  (JBC  <  0) .  (JBC  =  0 

can  happen  only  if  boundary  conditions  are  specified  incorrectly.  In  this 
case,  the  program  aborts.)  In  the  first  case,  the  program  determines  where  in 
BOUND  the  boundary  conditions  for  that  segment  are  found  and  calls  subroutine 
SEG  with  BOUND  at  that  index.  In  the  second  case,  the  appropriate  location  in 
the  tributary  information  transfer  array,  T,  is  given  immediately  by  -JBC(L). 
The  entry  in  the  array  T  that  stands  fcr  DO,  i.e.  T(7,L2),  is  adjusted  for 
reaeration  through  control  structures  according  to  Equation  131.  The  program 
then  calls  subroutine  SEG  with  boundary  conditions  given  in  T. 

247.  After  processing  all  of  the  segments,  the  program  prints  out  the 
data  for  all  the  segments,  one  to  a  page,  in  the  order  that  the  segments  are 
given  in  the  input  deck.  At  the  completion  of  the  last  time-step,  the  next 
title  card  is  read,  and  the  input  deck  is  searched  for  new  constant  cards,  as 
before,  one  per  segment.  If  they  are  found,  the  parameters  are  assigned  to 
the  segments  as  described  above,  the  hydrodynamic  data  file  is  rewound  (and 
then  advanced  to  pass  over  grid  information,  DX1,  RMILE,  and  QL,  which  are  all 
handled  outside  the  sensitivity-analysis  loop),  and  the  simulation  is  rerun. 
If,  on  the  other  hand,  the  constant  cards  are  not  found,  the  program 
terminates. 

Subroutine  SEG 

248.  Subroutine  SEG  performs  the  main  decay  rate  and  transport  and 
decay  calculations  for  each  segment.  In  its  argument  list  are  the  distance 
increments,  DX1 ;  hydrodynamic  data  from  the  previous  time-step,  QO...,  etc.; 
hydrodynamic  data  from  the  current  time-step,  Q...,  etc.;  lateral  inflows,  QL; 
concentrations,  C;  spatial  derivatives  of  the  concentrations,  DC;  decay  rates, 
K;  source/sink  terms,  SINK;  boundary  conditions,  BC;  presence/absence  flags, 
CP;  concentrations  in  the  lateral  inflow,  CL;  parameters,  PARM;  the  sine  of 
the  incident  light,  SINI;  the  number  of  nodes,  MNODE;  the  index  of  the  first 
tributary  to  that  segment  within  T,  ITO;  the  index  of  the  last  tributary,  IT 1 ; 
the  index  where  this  segment  is  to  place  its  data,  IT2;  the  tributary  infor¬ 
mation  transfer  arrays,  JT  and  T;  and  the  time  increment,  DT. 

249.  The  first  task  is  to  assign  data  from  the  parameter  array  to 
scalars  with  more  meaningful  names.  Next,  a  derivative  at  the  first  node  is 
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estimated  with  a  cubic  interpolation  based  on  the  concentration  at  the 
boundary  at  the  new  time-step  and  at  the  first  and  second  nodes  at  the  old 
time-step,  and  the  derivative  at  the  second  node.  Markers  to  define  the 
downstream  extent  of  algal  nutrient  depletion  are  initialized. 

250.  In  this  explicit  method,  only  two  nodes  from  the  old  time-step  are 

required  in  the  solution  of  any  node  at  the  current  time-step  (Figure  18); 

that  is,  is  calculated  from  and  .  If  calculation  were  to 

proceed  in  a  downstream  fashion,  .  would  have  to  be  saved  so  it  w<..>ild  not 

1-1  i+1 

be  overwritten  in  the  calculation  of  .  Proceeding  upstream,  however, 

removes  this  difficulty.  Entries  at  i-1  are  old  information  by  default,  and 
i*f  1  4 

simply  replaces  as  it  is  calculated.  For  this  reason,  the  node 

loop  marches  backwards  through  the  indices. 

251.  Once  inside  the  node  march  loop,  velocities  and  the  rate  constant 
adjustments  for  flow,  QX  (Q  in  Equation  111),  are  calculated.  The 
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succeeding  hydrodynamic  manipulations  are  useful  only  in  the  transport 
calculations  and  so  are  bypassed  for  initial  and  boundary  conditions.  For 
interior  grid  points,  these  statements  prepare  the  groundwork  for  the  solution 
of  the  final  transport  Equations  92,  95,  and  98.  The  distance  increment  DX 
is  assigned  to  -  X^  (the  node  to  be  calculated  is  termed  node  I  in 

the  program,  as  opposed  to  node  i+1  in  Part  IV) .  For  any  parameter  a  , 

3a/ 3x  is  calculated  as  (a*? . ,  -  a^)/(X,  .  -  X.)  ,  3a/ 3t  is  calculated  as 
(ai  “  a;j)/T  »  and  estimated  average  as 


* 

a  = 


[4 


j+1  x  J 
i+l 


aI+l(1  " 


O  +  a 


(210) 


The  exception  to  this  rule  is  u*  ,  whose  calculation  must  precede  that  of  £ 
and  is  given  by  Equation  92.  The  variable  £  is  calculated  by 


5  = 


U*T 


Xi+1  -  Xi 


(211) 


Its  complement  (1-0  is  also  assigned  a  variable.  In  the  calculation  of 
Equaf'on  98,  the  following  is  the  same  for  all  constituents  and  so  is  assigned 
to  the  variable  GO  : 
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t(u 


i+l 


i+l 


(212) 


The  coefficients  through  A^  and  b^  through  b^  are  calculated 

according  to  Equations  81  through  84  and  86  through  89,  respectively,  based  on 
the  estimated  value  of  £  and  its  complement. 

252.  With  all  the  background  to  the  transport  equations  prepared, 
attention  shifts  to  the  decay  rates  and  source/sink  terms.  Decay  rates, 
source/sink  terms,  and  final  concentrations  and  derivatives  are  calculated 
within  a  loop  that  cycles  through  each  of  the  10  modeled  constituents.  Decay 
rates  and  source/sink  terms  are  particular  to  each  constituent,  and  so  each  is 
calculated  in  a  separate  block.  Once  decay  rates  and  source/sink  terms  for  a 
particular  constituent  are  calculated,  the  final  averaging,  concentration,  and 
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derivative  equations  can  be  solved  in  a  stereotyped  way,  and  so  the  loop 
reassembles.  (The  reason  that  decay  rates  and  source/sink  terms  are  within 
the  loop  at  all  is  the  interdependence  of  constituents;  for  instance,  the  sink 
term  for  DO  contains  the  final  concentration  of  CBOD.  If  all  decay  rates  and 
source/sink  terms  were  calculated  outside  the  loop,  this  information  would  not 
be  available.)  Finally  the  effect  of  diffusion  is  calculated  implicitly  and 
added  to  the  constituent  concentration. 

253.  The  equations  that  appear  in  the  listing  are  equivalent  to  those 
given  in  Parts  IV  and  VI,  with  some  minor  modifications.  In  one  instance, 
numerical  problems  presented  by  the  expression 

2 .  /KEXT*  ( 1  -EXP (-KEXT*H)  )+B*EXP  (-KEXT*H)  (  2. 1 3) 

used  in  determining  available  photosynthetic  energy  (Equation  156)  must  be 
handled.  First,  the  number  of  calls  to  the  external  function  EXP 
(exponentiation)  can  be  cut  in  half  by  rewriting  the  above  expression  as  the 
algebraically  equivalent 

2. /KEXT  +  (B— 2 . /KEXT) *EXP (-KEXT*H)  (214) 

The  above  expression,  however,  becomes  numerically  unstable  as  KEXT  approaches 
zero,  although  mathematically  it  approaches  the  value 

2 ,*H  +  B  (215) 

This  problem  is  handled  by  taking  a  Taylor's  series  expansion  of  EXP(~KEXT*H) 
in  the  expression  2./KEXT*(l.-EXF(-KEXT*H))  about  KEXT  =  0  carried  to 
three  terms, 

2. /KEXT* (1.  -  (1.  -  KEXT*H  +  ((KEXT*H)**2) /2  +  ....)) 

This  simplifies  to 


H*(2.  -  KEXT*H) 


(216) 
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The  entire  expression  is  then 


H*(2.  -  KEXT*H)  +  B*EXP(-KEXT*H) 


(217) 


for  KF.XT  less  than  0.01. 

254.  After  calculating  decay  rates  and  source/sink  terms,  the  loop 
reassembles  to  calculate  averages  and  spatial  derivatives  of  these  quantities. 
Finally,  the  concentrations  and  their  spatial  derivatives  are  calculated. 

255.  Lateral  inflow  is  modeled  by  simple  mass  balance.  Subtracting  the 
continuity  equation  (Equation  34)  times  the  concentration,  a  ,  from  the 
pollutant  transport  equation  (Equation  36),  yields  (neglecting  off-channel 
storage,  diffusion,  decay,  and  source/ sink  terms) 


3a 

3t 


+  U 


3a 

3x 


f  -  “> 


(218) 


2  -1 

where  q  is  the  lateral  inflow  (L  T  )  and  y  is  the  concentration  in  the 
lateral  inflow.  The  quantity  q/A  is  denoted  as  QLA  and  y  -  a  is  replaced 
by  CCL.  The  right-hand  side  of  the  transport  equation  is  therefore  augmented 
by  the  term 


CCL*QLA  (219) 

The  derivative  transport  equation  receives  this  term  after  product  rule 
differentiation 


(-DC*QLA  +  CCL*DQLA)  (220) 

where  DC  and  DQLA  are,  respectively,  ax  and  3(q/A)/3x  . 

256.  Once  the  calculations  for  all  the  constituents  are  complete,  the 
frame  of  interest  shifts  by  one  node,  and  iteration  continues. 

257.  At  the  completion  of  the  node  march,  the  boundary  conditions  are 
assigned  to  the  first  node,  the  segment  loads  its  own  information  into  T,  and 
the  algal  nutrient  depletion  data  are  placed  in  PARM(25)  through  PARM(28). 
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Subroutine  SPLINE 


258.  As  stated  earlier,  this  solution  scheme  requires  spatial  deriva¬ 
tives  for  the  concentrations  of  all  modeled  constituents  at  initial  and  bound¬ 
ary  conditions.  Because  the  user  would  have  no  a  priori  information  as  to  the 
values  of  the  derivatives,  the  program  estimates  them  based  on  a  polynomial 
interpolation  of  the  initial  and  boundary  data  themselves.  The  scheme's  being 
fourth  order  suggests  that  interpolation  should  likewise  be  fourth  order,  that 
is,  a  cubic  spline.  Such  a  spline  is  completely  defined  by  the  following  con¬ 
siderations:  the  curve  should  pass  through  every  data  point;  it  should  be 
fourth  order;  although  the  equation  may  vary  from  one  interval  to  the  next, 
the  curve  and  its  first  and  second  derivatives  should  be  continuous  at  every 
point;  the  second  derivative  at  the  two  boundaries  should  be  zero  (that  is, 
there  should  be  no  bending  of  the  curve  at  the  end  points,  commonly  known  as  a 
"relaxed"  or  "natural"  condition) . 

259.  A  complete  development  of  the  equations  is  given  by  Rogers  and 

Adams  (1976).  Briefly,  the  cubic  equation  for  each  interval  is  defined  by  the 

values  and  derivatives  at  each  end  of  the  interval,  just  as  is  done  in  the 
development  of  the  fourth-order  scheme  in  Part  IV.  Requiring  that  the  second 
derivative  be  continuous  at  every  point  implies  that  the  cubic  equations  for 
any  two  adjacent  intervals  yield  equal  second  derivatives  at  their  point  of 
juncture.  This  leads  to  a  system  of  n  -  2  linear  equations,  where  n  is 

the  number  of  nodes,  that  is,  one  equation  for  each  interior  node.  The  system 

is  completed  by  the  equation  that  sets  the  second  derivative  to  zero  at  the 
first  node  and  the  one  that  does  the  same  for  the  last  node.  This  produces  a 
system  of  n  linear  equations  in  n  unknowns,  where  the  coefficient  matrix 
is  of  tridiagonal  form  filled  with  nonzero  members  along  the  main  diagonal, 
one  row  above  the  main  diagonal  and  one  below.  Tridiagonal  matrices  are 
amenable  to  much  faster  solution  than  general  square  matrices — the  solution 
scheme  employed  here  is  subroutine  TRIDAG,  taken  with  slight  modification, 
from  Carnahan,  Luther,  and  Wilkes  (1969). 

260.  The  mathematical  formalism  proceeds  as  follows.  Recall  Equa¬ 
tion  80  in  expanded  form: 

Y(0  =  $2(3  -  2C)«i  +  [1  -  $2(3  -  20]«i+1 
+  c2d  -  O  (x1+1  -  ax£  “  -  02(x 


•  41 


i+1  _  xi)axi+l 


(221) 


The  expression  for  the  second  derivative  is  then: 


Y(0  =  (6  -  120ai  +  (-6  +  125)ai+1 


+  (2  -  60(xi+1  “  x±)ax±  +  (4  -  65)  (xi+1  -  xi)ax1+1 


(222) 


Approaching  node  i+1  from  the  left,  5=0,  and  approaching  it  from  the 
right  5=1,  The  requirement  that  the  second  derivative  be  continuous 
translates  mathematically  to 


.  2 
dx 


Xi+1+ 


(223) 


-  v  (5) 


(xi  -  xi+l)' 


(224) 


Xi+1+ 


=  Y  (5)  •  J 

5=1  ' 


Xi+1  "  Xi+2; 


(225) 


Equating  the  two: 


7 - ^-y? v  <5)  -  t - 1 - 72 v  <«> 

(Xi  "  Xi+lj  0  \  i+1  "  Xi+2/ 


(226) 


which  can  also  be  written: 


xi+2  ~  xi+l  y  ,  .  =  xi+l  ~  Xi 

xi+l  _  xi  ?=()  Xi+2  "  Xi+1 


Y  (5)1 


(227) 
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In  expanded  form: 


Xi+2  "  X 


i+l 


Xi+1  r, 

-  6  a  - 

■‘i  t  1 


6Vi  +  2(xi+i  -  xi)c“i  +  4<xi+i 


xi+l  ~  Xi 
xi+2  “  xi+l 


[- 


6“l+I  +  6oi+2  -  4<xl+2  -  xi+l)axl+l  -  2(xi+2  -  xl+l>axi+2 


(228) 


Rearranging  so  that  all  the  derivatives  are  on  the  left-hand  side  and  every¬ 
thing  else  on  the  right-hand  side  and  dividing  by  two  yields: 


‘i +  2  [(: 


(xi+2  "  xi+l)otxi  +  2  |(xi+2  ~  Xi+P  +  (xi+l  "  xi^ 


“i+l  +  (xi+l  '  xl)c“i+2 


=  3 


Xi+2  ~  Xj+1  .  .  Xi+1  ~  Xi  ,  . 

Xj,,  -  x,  i+l  i  x. >0  -  x. ^ai+2  ai+P 


i+l  i 


i+2  i+l 


(229) 


The  second  derivative  being  zero  at  the  first  node  requires  (setting  £  «=  1) 
that 


-60^  +  6a2  -  4(x2  -  x1)ax1  -  2(x2  -  x^)ax2  = 


(230) 


or 


ax 


1 


3  1 

2  (x2  '  xl> 


al> 


(231) 


Similarly  for  the  last  node 


1 

2 


ax 

n' 


1 


+  ax 

n 


3  _ 

2  (x 

n 


-  Xn-1> 


Vi> 


(232) 


261.  The  entire  system  can  be  written  in  matrix  form  and  given  to  sub¬ 
routine  TRIDAG  to  solve. 


143 


1 1 


(xif2  -  xi+l>  Zt(xi+2  "  Xl-H>  +  (xl+l  -  xl)1(xl+l  -  xi> 


2  (x2  -  Xj)  <02  "  “l1 


xi+2  ~  xj+l  ,  .  .  Xi+1  ~  Xi  , 

x,.,  -  x,  ai+l  ai  xJin  -  Xj , ,  ai+2 


i+1  i 


2  (x  -  x  )  (an  "  Vl} 
n  n-1 


i+2  i+1 


ai+l) 


ax. 


ax 


i+1 


ax 


n 


(233) 


Tributaries 

262.  Tributaries  in  the  constituent  transport  equations  are  considered 
to  be  point  additions  of  materials.  The  concentration  at  the  junction  point 
is  a  function  of  the  concentration  and  flow  of  the  tributary  and  the  receiving 
stream  just  upstream  of  the  junction.  For  a  junction  at  node  i  : 


a 


i 


(a0i  ♦  Q0i  +  aT  •  Qt) 

(Q0i  +  Qx) 


(234) 


where 

a  =  concentration 

0  =  receiving  stream  just  upstream  of  the  junction 
Q  =  flow 
T  =  tributaries 

RIV1Q  requires  two  reaches  to  achieve  full  dilution  of  the  tributary  flow; 
therefore  replaces  the  sum  of  Q0  and  Q^,  in  Equation  234, 


ai  = 


[a0i  (Qi+1  -  Qt)  +  aT  •  Qt] 


(235) 
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The  quantity  Qip^i+1  can  rePresente^  by  fc^e  dilution  ratio  D  : 

“i  “  °^i  “  D)  +  aT  D  (236) 

263.  To  preserve  fourth-order  correctness  through  a  junction,  deriva¬ 
tives  must  be  advected  as  well.  The  derivatives  are  diluted  in  the  same  way 
as  concentrations,  with  the  addition  that  spatial  derivatives  on  the  tributary 
must  be  adjusted  for  the  difference  between  the  velocity  on  the  tributary  and 
on  the  receiving  stream: 


=  ax0^  (1  -  D)  +  ax^  DD  (237) 

where  DD  represents  the  quantity  D  •  i^/u^  . 

264.  Tributary  influx  is  modeled  here  as  a  discontinuity,  and  so  the 
values  immediately  upstream  of  the  junction  point  must  be  stored.  The  first 
20  members  of  the  T-array  contain  concentrations  and  their  derivatives  at  the 
mouth.  Location  21  contains  tributary  flow,  and  location  22  contains  tribu¬ 
tary  velocity.  Locations  23  through  32  contain  concentrations  on  the  main 
stem  just  upstream  of  the  junction  point,  and  locations  33  through  42  contain 
the  derivatives  there.  In  the  solution  procedure  for  the  receiving  stream, 
each  node  is  checked  to  see  if  it  is  a  junction  point.  If  it  is  not,  the 
solution  proceeds  normally.  If  it  is,  the  array  pointers  shift  to  the  appro¬ 
priate  positions  in  the  T-array  and  a0  and  ax0  are  used  in  place  of 
and  cxx^  in  performing  advection  and  first-order  decay.  The  calculated 
values  become  a0  and  ax0  for  the  new  time-step.  Finally,  and  ax^ 

are  calculated  according  to  Equations  236  and  237. 
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Input  and  Output  Formats 


Input 

265-  Input  for  RiVlQ  consists  of  card  (or  card-image)  input  from  the 
user  and  unformatted  disk  (or  equivalent)  input  from  R1V1H  (or  similar 
hydraulics  model).  Card  input  is  composed  of  eight  types  of  cards:  title, 
segment,  constant,  initial  conditions,  boundary  conditions  identification, 
update,  update  intervals,  and  boundary  conditions.  The  title  card  supplies 
the  title  with  which  the  output  of  each  run  is  labeled.  The  segment  card 
gives  data  pertinent  to  each  segment,  such  as  name  and  identification  number. 
On  the  constant  card,  rate  coefficients  and  the  other  parameters  are  given 
values  by  name.  The  initial  conditions  cards  and  boundary  conditions  cards 
assign  concentrations  to  each  of  the  modeled  constituents  at  every  node  for 
the  first  time-step,  in  the  case  of  initial  conditions,  and  at  every  appro¬ 
priate  boundary  for  each  update  time  in  the  case  of  boundary  conditions.  The 
segments  for  which  boundary  conditions  are  given  are  listed  on  the.  boundary 
conditions  identification  card.  If  the  user  does  not  want  to  simulate  a  par¬ 
ticular  constituent  (such  as  reduced  iron),  then  the  initial  and  boundary  con¬ 
ditions  and  lateral  loadings  should  be  set  to  zero  or  left  blank  for  that 
constituent. 

266.  The  organization  of  the  input  deck  is  shown  in  Figure  19.  The 
title  card  comes  first,  followed  by  a  segment  card,  constant  cards,  and  ini¬ 
tial  conditions  cards  for  each  segment.  Boundary  conditions  are  introduced  by 
a  boundary  conditions  identification  card  and  followed  by  the  update  card, 
update  interval  cards,  and  the  boundary  conditions  cards.  This  is  the  com¬ 
plete  deck  for  making  a  single  run.  To  perform  sensitivity  analyses,  however, 
this  deck  is  followed  by  a  new  title  card  and  a  batch  of  constant  cards,  one 
set  of  constant  cards  per  segment.  The  process  is  repeated  for  each  sensi¬ 
tivity  analysis  requested,  up  to  a  limit  of  five.  The  program  ends  upon 
exhaustion  of  the  input. 

267.  Title  card.  The  user  has  the  full  80  columns  of  the  title  card  to 
write  any  title  of  his  choosing.  It  will  be  printed,  verbatim  near  the  top  of 
every  page. 

268.  Segment  card.  The  format  of  the  segment  card  is  T2,10A4,I2,F10.0. 
The  items  specified  are  ID,  the  identification  number  for  this  segment,  SNAME, 
its  name,  IDAM,  and  DAMK.  The  two  latter  variables  concern  reaeration  that 
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SAMPLE  DATA  SET  -  USERS  MANUAL 


1  MAIN 
&CONST 
TEMPL  - 

STEM  ABOVE  REREG  DAM 
START  -  16.00,  AK1  -  0.2 
.  25.0,  ITEM  =  0,  &END 

,  QWINDO 

1 

-  TRUE, 

0.045 

IPRINT 

-  192, 

23.4 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.50 

0.0 

0.0 

0.0 

22.8 

250. 

0.01 

0.01 

0. 1 

0.01 

0.02 

8.60 

0.0 

0.0 

0.0 

22.8 

250. 

0.01 

O.Oi 

0.1 

0.01 

0.02 

8.70 

0.0 

0.0 

0.0 

24.3 

250. 1 

0.01 

0.01 

0.1 

0.01 

0.02 

8.20 

0.0 

0.0 

0.0 

24.4 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.20 

0.0 

0.0 

0.0 

24.5 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.30 

0.0 

0.0 

0.0 

24.7 

250: 

0.01 

0.01 

0.1 

0.01 

0.02 

8.30 

0.0 

0.0 

0.0 

25.1 

250. 

0.01 

0.01 

0. 1 

0.01 

0.02 

8.30 

0.0 

0.0 

0.0 

25.4 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.30 

0.0 

0.0 

0.0 

25.7 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.20 

0.0 

0.0 

0.0 

25.9 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.20 

0.0 

o.o 

0.0 

26.0 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.20 

0.0 

0.0 

0.0 

26.0 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.20 

0.0 

0.0 

0.0 

25.9 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.20 

0.0 

0.0 

0.0 

25.7 

250. 

0.01 

0.01 

0. 1 

0.01 

0.02 

8.30 

0.0 

0.0 

0.0 

25.3 

250. 

2  MAIN 
&CONST 

0.01  0.01 

STEM  BELOW  RKREG 
SEND 

0.1 

DAM 

0.01 

0.02 

8.40 

0.0 

0.0 

0.0 

24.8 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.50 

0.0 

0.0 

0.0 

24.3 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.50 

0.0 

0.0 

0.0 

23.9 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.60 

0.0 

0.0 

0.0 

23.8 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.60 

0.0 

0.0 

0.0 

23.7 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.60 

0.0 

0.0 

0.0 

23.8 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.50 

0.0 

0.0 

0.0 

2A.0 

250. 

0.01 

0.01 

0.1 

O.Oi 

0,02 

8.50 

0.0 

0.0 

0.0 

25.0 

250. 

0.01 

0.01 

0.1 

0.01 

0.02 

8.40 

0.0 

0.0 

0.0 

25.6 

0.01 

0.01  0.1 

Figure  19. 
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Sample  RIV1Q  input  (Continued) 
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250. 

26.0 

0.01 

0.01 

250. 

25.4 

0.01 

0.01 

250. 

24.2 

0.01 

0.01 

250. 

23.4 

0.01 

0.01 

250. 

23.7 

0.01 

0.01 

250. 

23.9 

0.01 

0.01 

250. 

23.9 

0.01 

0.01 

250. 

23.9 

0.01 

0.01 

250. 

23.9 

0.01 

0.01 

250. 

3  TRIBUTARY  UPSTRM  OF 

&CONST 

&END 

25.0 

0.01 

0.01 

250. 

25.1 

0.01 

0.01 

250. 

25.4 

0.01 

0.01 

250. 

26.2 

0.01 

0.01 

250. 

26.3 

0.01 

0.01 

250. 

26.2 

0.01 

0.01 

250. 

+1 . +3/ 


4 


155 

215 

400 

12.0 

1.0 

0.5 

15.0 

1.0 

0.5 

12.0 

1.0 

0.5 

15.0 

1.0 

0.5 

1 

520 

20.0 

i.O 

0.1 

0.1 

0.01 

0.02 

0. 1 

0.01 

0.02 

0.1 

0.01 

0.02 

0.1 

0.01 

0.02 

0.1 

0.01 

0.02 

0.1 

0.01 

0.02 

0.  1 

0.01 

0.02 

0. 1 

0.01 

0.02 

0.1 

0.'  1 

0.02 

REREG 

0.  1 

0.01 

0.02 

0.1 

0.01 

0.02 

0.1 

0.01 

0.02 

0. 1 

0.01 

0.02 

0.1 

0.01 

0.02 

0.  1 

0.01 

0.02 

520 

0.2 

0.1 

0.05 

0.2 

0.1 

0.05 

0.2 

0. 1 

0.05 

0.2 

0.1 

0.05 

O.Oi 

0.  i 

O.Oi 

8.30 

0.0 

0.0 

0.0 

8.30 

0.0 

0.0 

0.0 

8.50 

0.0 

0.0 

0.0 

8.50 

0.0 

0.0 

0.0 

8.40 

0.0 

0.0 

0.0 

8.20 

0.0 

0.0 

0.0 

8.10 

0.0 

0.0 

0.0 

8.10 

0.0 

0.0 

0.0 

3.10 

0.0 

0.0 

0.0 

7.20 

0.0 

0.0 

0.0 

7.40 

0.0 

0.0 

0.0 

7.50 

0.0 

0.0 

0.0 

7.50 

0.0 

0.0 

0.0 

7.60 

0.0 

0.0 

0.0 

7.60 

0.0 

0.0 

0.0 

2.5 

4.0 

2.5 

4.0 

8 . 0 

Figure  19.  (Concluded) 
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occurs  through  the  control  structure,  if  any,  at  the  top  of  this  segment.  If 
this  segment  is  not  headed  by  a  control  structure  or  if  reaeration  Is  not 
modeled,  these  two  fields  are  left  blank.  If  IDAM  is  0  or  blank,  structural 
reaeration  is  not  modeled.  If  IDAM  is  given  a  value  of  one  or  greater, 
structural  reaeration  is  modeled  with  the  energy  dissipation  model  (Wilhelms 
and  Smith  1981)  , 


-CtAH 

r  =  e 


(238) 


where 

r  =  deficit  ratio  (final  DO  deficit/initial  DO  deficit) 

C,j,  =  escape  coefficient 

AH  =  difference  in  water  surface  elevation  across  the  control 
structure 

The  value  for  the  escape  coefficient  at  20°  C  is  input  by  DAMK  with  units  of 
ft  the  program  corrects  for  temperature  by, 

CT  =  DAMK* 1 .022  (TEMP“2°)  (239) 

A  value  of  0.0A5  ft  *  for  DAMK  was  recommended  (Wilhelms  and  Smith  1981)  for 
gated-conduit  outlet  works  and  low  head  weirs  and  gated  spillways  (H  <  25  ft) 
with  free  hyd-raulic  jumps.  The  value  for  this  coefficient  may  be  signifi¬ 
cantly  different  for  other  types  of  outlet  structures  or  for  conditions  not 
conducive  to  reaeration,  such  as  submerged  hydraulic  jumps  that  can  be  experi¬ 
enced  with  many  low-sill  gated  structures.  The  program  is  not  set  up  to  allow 
structural  reaeration  at  headwater  nodes. 

269.  Constant  card.  On  this  card,  the  user  specifies  values  by  name 
for  parameters  and  coefficients  used  in  the  model.  This  card  also  lies  at  the 
heart  of  the  sensitivity-analysis  feature.  A  constant  card  must  be  given  for 
every  segment,  even  if  no  values  are  specified  on  it.  The  program  will  scan 
through  the  deck  looking  for  it  and  terminate  if  it  fails  to  find  it.  There 
are  A3  variables  that  can  receive  new  values  on  the  constant  card.  Their 
names  and  uses  are  given  in  Table  A.  Any  parameters  that  apply  to  the  network 
as  a  whole  (e.g.,  time  of  sunrise  or  a  rate  coefficient  whose  value  is  the 
same  everywhere)  are  given  in  the  constant  card  of  the  first  segment. 
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Table  4 

Parameters  That  Can  Appear  on  the  Constant  Card 


Name 

Units 

Default 

Explanation 

ADN 

day  * 

0.1 

Rate  coefficient  for 
denitrification. 

AG 

,  -1,  -El  -E2 

day  fps  /ft 

12.81 

Rate  coefficient  for 
stream  reaeration  rate  in 

FI 

„  AG 

the  form  K0  =  - =x—  . 

2  he2 

The  default  value  is  for 
the  O’Connor-Dobbins  (1958) 
formulation. 

AKN 

,  -1 
day 

0.3 

Rate  coefficient  for 
nitrification. 

AKNX 

day  * 

0.0 

Rate  coefficient  for 
ammonia  adsorption. 

AK1 

day  * 

0.15 

Rate  coefficient  for  CBOD 
decay  and  organic  nitrogen 
decay. 

ALGAEB 

g/m2 

0.0 

The  amount  of  benthic 
algae. 

ATB 

,  -1 
day 

0.0 

Rate  coefficient  for  bottom 
heat  exchange. 

ATS 

W* 

mZ  °C 

0.0 

Rate  coefficient  for 
surface  heat  exchange  in 
constant  equilibrium 
temperature  method. 

AF04 

day  * 

0.0 

Rate  coefficient  for 
phosphate  adsorption. 

CBODL 

mg/ 9. 

0.0 

Concentration  of  CBOD  in 
the  segment’s  lateral 
inflows. 

(Continued) 

—  - 

m  °C  ft  day  °F 
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Table  4  (Continued) 


Name 

Units 

Default 

Explanation 

COLIL 

mg/J. 

0.0 

Coliform  bacteria 
concentration  in  the 
segment’s  lateral  inflows. 

DAWN 

HH.MM 

6.30 

Time  of  sunrise. 

DOL 

rag/f. 

0.0 

DO  concentration  in  the 
segment's  lateral  inflows. 

El 

Unitless 

0.50 

Exponent  of  velocity  in 
stream  reaeration  rate 
formulation  in  the  form 

El 

K,  "  ~Vo~'  •  Default 

2  rE2 

value  is  for  the  O'Connor- 
Dobbins  (1958)  formulation. 

E2 

Unitless 

1.50 

Exponent  of  depth  in  stream 
reaeration  rate  formulation 

AG  U^ 

in  the  form  K2  =  ------  . 

H  E2 

Default  value  is  for  the 

0 ’ Connor-Dobbins  (1958) 
formulation. 

FEL 

mg/j. 

0.0 

Reduced  iron  concentration 
in  the  segment’s  lateral 
inflows. 

HNEFSW 

CM 

s 

3 

0.0 

Surface  light  intensity  at 
local  noon.  A  value  is 
required  if  modeling 
photosynthesis  but  not 
using  the  direct  energy 
budget  that  computes 

HNEFSW. 

IPRINT 

0 

The  output  print  interval 

(e.g.  IPRINT  =  10  causes 
only  every  tenth  time-step 
to  be  printed  to  File  6) . 


(Continued) 
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Table  4  (Continued) 


Name 

IPLOT 

ITEM 


KALGDK 

KALGRO 

KCOLIDK 

KEXT 

KFEDK 

KMNDK 

KNCBDN 

KOALDK 


Units _  Default  _ Explanation _ 

0  The  output  graphics  print 

interval  (e.g.  IPLOT  =  10 
causes  only  every  tenth 
time-step  to  be  printed  to 
the  graphics  File  19) .  For 
IPLOT  =  0,  no  graphics  out¬ 
put  file  is  created. 


0  To  designate  type  of  heat 

exchange  solution.  For 
ITEM  =  1  ,  the  constant 
equilibrium  temperature 
solution  is  used  (should 
also  specify  ATS  and  TEMP) . 
For  ITEM  =  0  ,  the  direct 
energy  balance  is  used  for 
temperature  solution,  and 
meteorological  data  must  be 
furnished.  For  any  other 
value  of  ITEM  other  than  0 
or  1,  heat  exchange  is  not 
modeled. 


day  * 

2  -1  -1 

0.1 

Algal  decay  rate. 

m  Watts  day 

0.0020 

Algal  growth  rate. 

day-1 

1.4 

Rate  coefficient  for 
coliform  bacteria 
mortality. 

ft"1 

0.5 

Light  extinction 
coefficient. 

day  * 

0.5 

Rate  coefficient  for  iron 
oxidation. 

day  * 

0.5 

Rate  coefficient  for  man¬ 
ganese  oxidation. 

mg/ fl¬ 

0.1 

Nitrate  half-saturation 
constant  for  denitrifi¬ 
cation. 

ing/ A 

0.5 

(Continued) 

DO  half-saturation  constant 
for  algal  decay. 

152 


(Sheet  3  of  5) 


Table  4  (Continued) 


Name 

KOCBDN 

K0CB1 

KON 

MNL 

NH3NL 

N03NL 

ORGANL 

OX1DAT 

P04L 

QWXNDO 

START 

SUNSET 


Units 

Default 

Exp] anation 

mg/?. 

0.5 

DO  half-saturation  constant 
for  denitrification. 

mg/P. 

0.5 

DO  half-saturation  constant 
for  CBOD  decay  (Hoover  and 
Porges  1952). 

mg/  P. 

0.5 

DO  half-saturation  constant 
for  nitrification. 

mg/P. 

0.0 

Reduced  manganese  concen¬ 
tration  in  the  segment's 
lateral  inflows. 

mg/P. 

0.0 

Ammonia  concentration  in 
the  segment's  lateral 
inflows. 

mg/ P. 

0.0 

Nitrate  concentration  in 
the  segment's  lateral 
inflows. 

mg/P. 

0.0 

Organic  nitrogen  concentra¬ 
tion  in  the  segment's 
lateral  inflows. 

mg/ ?. 

1.0 

Concentration  of  DO  at  and 
below  which  iron  and  man¬ 
ganese  oxidation  do  not 
occur. 

mg/P. 

0.0 

Phosphate  concentration  in 
the  segment's  lateral 
inflows. 

FALSE 

A  logical  variable  to 
invoke  wind-driven 
reaeration.  To  turn  on 
wind  reaeration  for  a  seg¬ 
ment,  set  QWIND0  =  TRUE  . 

HH.MN 

00.00 

Starting  time  of  the 
simulation. 

HH.NM 

20.30 

Time  of  sunset. 

(Continued) 
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Table  4  (Concluded) 


Name _ Units _  Default 

TEMP  °C  23.0 


TEMPL 

°C 

0.0 

TSINK 

°C 

10.0 

-1 

0.0 

TSIV 

ft 

_ Explanation _ 

If  temperature  is  not 
modeled  but  temperature 
dependent  processes  are 
modeled,  then  a  stream  seg¬ 
ment  temperature  should  be 
specified  with  TEMP.  For 
this  condition,  temperature 
values  for  initial  cond- 
tions,  headwater  boundary 
conditions,  and  lateral 
inflows  should  not  be 
specified;  otherwise  tem¬ 
peratures  will  be  modeled 
by  the  heat  exchange 
method  selected  by  ITEM. 

If  temperature  is  modeled 
with  the  constant  equilib¬ 
rium  temperature  approach, 
then  TEMP  is  used  to  input 
the  equilibrium  temperature 
for  each  stream  segment. 

Temperature  of  the  seg¬ 
ment's  lateral  inflows. 

Source/sink  term  for  bottom 
heat  exchange. 

Coefficient  in  the 
Tsivoglou-Wallace  reaera¬ 
tion  formula  (a  value  of 
zero  serves  to  indicate 
that  the  equation 

H 

will  be  used  rather  than 
this) .  If  the  Tsivoglou- 
Wallace  formula  is  used,  a 
value  of  0.054  is  suggested 
for  TSIV. 
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Segment-specific  exceptions  to  these  values  are  given  on  the  constant  cards  of 
the  individual  segments. 

270.  The  form  of  the  constant  card  is  as  follows.  The  first  space  is 
left  blank.  Columns  2-7  contain  the  characters  &C0NST.  Following  that  are 
names  of  the  variables,  each  followed  by  an  equals  sign  followed  by  the  value 
the.  user  wishes  to  assign.  If  the  user  is  content  with  the  default  value, 
then  that  variable  need  not  appear  on  the  constant  card.  Assignments  are 
separated  by  commas  and  may  extend  over  as  many  cards  as  necessary  without 
regard  to  card  field  (the  first  column  of  every  succeeding  card  must  be  left 
blank).  At  the  end  of  the  list  goes  the  expression  &END.  (If  the  user 
misspells  the  name  of  a  variable,  in  most  systems  the  computer  will  print  an 
error  message  and  continue  execution  with  the  default  value.) 

271.  Initial  conditions  cards.  Two  cards  are  provided  for  each  node. 
The  first  card  contains  the  initial  conditions,  and  the  second  contains  the 
horizontal  dispersion  coefficient.  As  stated  in  Part  IV,  necessary  and  suf¬ 
ficient  initial  conditions  are  the  concentrations  of  all  the  parameters  to  be 
modeled.  Accordingly,  each  initial  conditions  card  is  divided  into  10  areas, 
each  eight  columns  wide,  which  contain  the  values  of  temperature,  CBOD, 
organic  nitrogen,  ammonia  nitrogen,  nitrate  plus  nitrate  nitrogen,  phosphate, 
dissolved  oxygen,  reduced  manganese,  reduced  iron,  and  coliform  bacteria, 
respectively.  Columns  corresponding  to  constituents  that  are  not  modeled  are 
left  blank  or  set  to  zero.  Additionally,  lateral  inflow  values  (constant 
card)  should  not  be  specified  for  constituents  that  are  not  to  be  modeled. 

Each  initial  conditions  card  is  followed  by  a  card  specifying  the  longitudinal 
dispersion,  specified  in  the  first  eight  columns.  The  format  for  these  cards 
is  10F8.0. 

272.  The  user  can  simulate  an  arbitrary  conservative  or  nonconservative 
constituent  with  the  coliform  bacteria  variable  by  setting  KCOLIDK  =  0.0  or 
to  a  specified  first-order  kinetic  rate,  respectively. 

273.  In  most  applications,  the  initial  concentrations  of  water  quality 
constituents  at  each  node  will  not  be  known.  This  problem  can  be  overcome  by 
several  means.  If  water  quality  data  are  available  at  several  stations  along 
the  stream,  values  could  be  interpolated  for  the  nodes.  If  such  data  are  not 
available  for  the  conditions  being  simulated,  then  a  simulation  can  be  made 
with  estimated  initial  conditions  and  time-invariant  boundary  conditions  that 
are  the  same  as  the  first  set  or  time-variant  boundary  conditions.  The 
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resulting  steady-state  nodal  concentrations  are  then  used  as  the  initial  con¬ 
ditions  for  subsequent  simulations.  However,  these  steady-state  initial  con¬ 
ditions  still  may  not  be  representative.  If  the  nodal  concentrations  change 
significantly  following  the  first  flush  (system  travel  time),  then  the  initial 
conditions  were  probably  not  representative,  and  the  results  during  the  first- 
flush  should  not  be  used  for  interpretation. 

274.  It  is  possible  to  improve  the  initial  condition  estimates  to  pro¬ 
vide  more  meaningful  results  during  first  flush  if  conditions  (flows,  load¬ 
ings,  etc.)  during  or  at  the  end  of  the  simulation  (but  after  first  flush)  are 
similar  to  the  starting  conditions.  A  dynamic  simulation  is  made  with  esti¬ 
mated  initial  conditions;  the  simulated  nodal  concentrations,  at  the  time  that 
conditions  (flows,  loadings,  etc.)  are  similar  to  initial  conditions,  are 
selected  for  initial  conditions  in  subsequent  simulations.  For  example,  sup¬ 
pose  that  the  simulation  starts  on  Monday  and  ends  on  Sunday  for  a  stream 
below  a  peaking  hydropower  dam  where  peaking  operations  occur  on  weekdays  and 
steady  low  flows  are  maintained  on  weekends.  Then  the  simulated  nodal  con¬ 
centrations  on  Sunday  should  provide  reasonable  estimates  for  the  initial  Mon¬ 
day  conditions  (provided  sufficient  time  elapsed  for  first  flush  and  other 
factors  are  similar  at  the  beginning  and  end  of  the  simulation) . 

275.  Boundary  conditions  identification  card.  The  transport  equations 
require  boundary  conditions  for  the  upstream  end  of  every  segment.  However, 
in  the  case  where  the  segments  are  actually  part  of  the  same  stream  but  are 
separated  by  a  control  structure,  two  segments  are  modeled  but  the  boundary 
conditions  for  the  lower  segment  are  determined  by  the  upper  segment  and  do 
not  appear  in  the  input.  The  type  of  boundary  conditions  required,  therefore, 
is  uniquely  determined  once  the  network  structure  is  fixed.  The  user  indi¬ 
cates  to  the  program  on  this  card  the  segments  (TD)  whose  boundary  conditions 
will  be  given.  The  numbers  can  appear  anywhere  on  the  card  and  can  be  sepa¬ 
rated  by  a  comma  or  blanks  or  both,  but  they  must  appear  in  order,  with  the 
list  terminated  by  a  slash  (/). 

276.  Update  card.  The  user  here  indicates  the  total  number  (NUM)  of 
different  boundary  condition  updates  for  the  first  segment  identified  on  the 
boundary  conditions  identification  card.  The  format  for  this  card  is  18. 

This  card  is  then  followed  by  the  update  interval  cards  and  the  boundary  con¬ 
dition  cards  described  below.  A  total  of  NUM  boundary  condition  update 
intervals  and  NUM  boundary  conditions  cards  must  be  provided.  The  sequence  is 
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then  repeated  for  each  of  the  segments  specified  on  the  boundary  conditions 
identification  card. 

277.  Update  interval  cards.  The  user  here  indicates  the  maximum  itera¬ 
tion  number  for  which  the  associated  boundary  condition  card  applies.  In  the 
example  data  set  (Figure  19) ,  the  first  line  of  boundary  conditions  would 
apply  to  the  first  155  model  time-steps,  the  second  line  for  time-step  156 
through  215,  etc.  There  must  be  NUM  update  intervals  specified.  The  format 
of  this  card  is  1018. 

278.  Boundary  condition  cards.  There  is  one  boundary  conditions  card 
for  each  update  interval  specified  (a  total  of  NUM,  specified  on  the  update 
card).  The  format  of  the  boundary  conditions  cards  is  identical  to  the  first 
card  of  the  initial  conditions  cards.  Constituents  that  are  not  modeled 
should  be  left  blank  or  set  to  zero. 

279.  Sensitivity  analysis.  If  a  sensitivity  analysis  is  required,  a 
title  card  followed  by  a  constant  card  for  every  segment  should  appear  behind 
the  final  boundary  conditions  card.  The  program  will  take  on  the  new  title 
and  will  run  again  with  the  new  values  specified  on  the  constant  card.  A 
title  card  will  be  read  but  will  not  restart  the  program.  Note  also  that  the 
values  do  not  revert.  If  the  first  run  has  TSIV  =  0.054  and  the  second  has 
TSIV  =0.11  ,  then  the  user  must  include  in  the  third  constant  card  TSIV 

=  0.054  if  he  wants  it  returned  to  its  original  value.  Otherwise,  the  value 
retained  will  be  the  one  most  recently  assigned,  TSIV  =0.11  .  More  sensi¬ 
tivity  analyses  can  be  requested  by  more  sets  of  title  and  constant  cards,  to 
a  limit  of  four. 


Meteorological  input 

280.  Meteorological  data,  required  for  heat-exchange  computations  when 
ITEM  is  equal  to  zero,  are  provided  in  a  separate  input  file  (FILE2) . 

281.  Card  1 .  The  user  here  specifies  the  Julian  day  (JDYO)  of  the  year 
that  simulations  are  started.  The  card  is  arranged  in  two  areas  of  eight  col¬ 
umns  each,  with  the  first  eight  columns  available  for  labeling  and  JDYO  speci¬ 
fied  in  the  second  area.  The  format  for  card  1  is  8X,  18. 

282.  Card  2.  The  user  here  specifies  the  dust-attenuation  coefficient 
(DUC) .  Water  Resources  Engineers  (1967)  gives  a  range  of  0.0  to  0.13  for 
several  locations,  although  results  are  not  very  sensitive  to  changes  in  this 
range.  The  format  for  cards  2  and  3  is  8X,  6F8.2. 
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283.  Card  3.  The  user  here  specifies  the  local  latitude  (LATUDC)  and 
the  local  longitude  (LONTUC)  of  the  project,  and  the  longitude  (LSMC)  of  the 
standard  meridian  east  of  the  project  (standard  meridians  are  in  increments  of 
15  deg,  e.g.,  75,  90,  105,  etc.).  Each  value  on  card  3  is  in  degrees. 

284.  Card  4.  The  user  here  indicates  the  total  number  (NIIM)  of  differ¬ 
ent  meteorological  condition  updates,  right  justified  in  the  first  eight  col¬ 
umns  (format  18). 

285.  Card  5.  The  user  here  indicates  the  maximum  number  of  iterations 
for  which  the  associated  meteorological  condition  card  applies.  In  the  exam¬ 
ple  input  set  (Figure  20) ,  the  first  line  of  meteorological  conditions  would 
apply  to  the  first  24  model  iterations,  the  second  line  for  iteration  25 
through  48,  etc.  A  total  of  NUM  iteration  numbers  L'jst  be  specified.  The 
card  is  arranged  in  10  areas  of  columns  of  eight,  with  right-justified  integer 
values  being  specified  (format  1018). 

286.  Card  6.  The  user  here  specifies,  respectively,  the  cloud  cover 
(between  0.0  and  1.0),  wind  speed  (miles  per  hour),  dry  bulb  temperature 
(degrees  Fahrenheit) ,  wet  bulb  temperature  (degrees  Fahrenheit) ,  and  the  atmo¬ 
spheric  pressure  (conventional  inch  of  mercury) .  There  should  be  a  total  of 

169 

0.12 

37.00  37.00  75.00 

22 

24  48  72  96  120  144  168  192  216  240 

264  288  312  336  360  384  408  432  456  480 

504  520 

1  0.80  8.00  82.00  61.00  28.81 

2  0.70  4.00  81.00  59.00  28.80 

3  0.30  5.00  81.00  60.00  28.79 

4  0.20  5.00  78.00  58.00  28.79 

5  0.20  3.00  74.00  56.00  28.80 

6  0.50  3.00  71.00  55.00  28.82 

7  0.50  3.00  65.00  54.00  28.84 

8  0.50  0.00  61.00  52.00  28.84 

9  0.50  4.00  58.00  53.00  28.85 

10  0.50  1.00  58.00  53.00  28.85 

11  0.50  0.00  54.00  50.00  28.86 

12  0.50  0.00  55.00  50.00  28.86 

13  0.50  0.00  51.00  49.00  28.86 

14  0.50  0.00  51.00  48.00  28.87 

15  0.50  4.00  53.00  49.00  28.89 

16  0.50  3.00  62.00  54.00  28.89 

17  0.60  4.00  66.00  56.00  28.90 

18  0.50  3.00  70.00  56.00  28.90 

19  0.20  3.00  73.00  59.00  28.90 

20  0.50  4.00  77.00  60.00  28.88 

21  0.50  2.00  80.00  62.00  28.87 

22  0.50  4.00  83.00  64.00  28.85 


Figure  20.  Sample  meteorological  data  input 


NUM  of  these  cards  provided.  The  cards  are  arranged  in  columns  of  eight,  with 
the  first  column  either  left  blank  or  used  for  labeling  (format  8X,  5F8.0). 
Output 

287.  The  output  from  RIV1Q  (Figure  21)  consists  of  data  for  each  seg¬ 
ment  at  each  print  interval.  At  the  top  of  the  page  appears  the  program  title 
followed  by  the  run  date.  The  next  line  prints  the  run  title  supplied  by  the 
user.  After  that  comes  the  elapsed  time  in  hours  and  minutes,  the  24-hr  clock 
time,  the  date  of  simulation  (day  1  being  the  first  day),  and  the  segment  ID 
number  and  name.  Only  those  parameters  modeled  appear  in  the  output. 

Headings,  units,  and  values  appear  in  column  format.  Tin  values  of  CBOD  and 
DO  are  printed  with  one  decimal  place  (corresponding  to  analytical  accuracy), 
the  remaining  variables  with  two  decimal  places. 

288.  Graphics  output  from  RIV1Q  consists  of  binary  data  for  each 
segment  and  is  available  with  the  option  IPLOT.  When  IPLOT  equals  zero  (the 
default  value) ,  no  graphics  output  is  generated;  IPLOT  «=  10  causes  only  every 
tenth  time-step  to  be  printed  to  File  19.  The  first  few  lines  in  the  graphics 
output  consist  of  the  river  mile  numbers  which  are  written  only  once.  The 
elapsed  time  appears  on  the  next  line  with  only  those  parameters  being  modeled 
appearing  on  the  next  few  lines.  The  section  on  graphics  in  the  source  code 
can  be  located  several  lines  below  statement  505. 

289.  Another  RIVIQ  output  file  is  File  17,  which  is  an  echo  of  the 
meteorological  data  that  the  program  reads.  The  user  can  check  this  file  to 
verify  that  the  correct  met  values  are  being  used. 
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SAMPLE  DATA  SET  -  USERS  MANUAL 
INITIAL  CONDITIONS 

TEMP  CBODNS  ORGAN  KH'JN  N03N  P04  DO  MN  FE  COLIFORM 

1  23.40  O.Oi  0.01  0.10  0.01  0.02  8.50  0.00  0.00  0.00 


ooooooooooooooooooooooooooooooooooooooo 

ooooooooooooooooooooooooooooooooooooooo 

ooooooooooooooooooooooooooooooooooooooo 


ooooooooooooooooooooooooooooooooooooooo 
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H  -4  -4  -4  H  h  .H  .4  -(  N  N  PI  I'l  Cl  C4  N  W  (S  N  n  fO  tn  ro  n  M  ro  PI  M  n 
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Figure  21.  Sample  RIV1Q  output  (Sheet  1  of  8) 
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Figure  21.  (Sheet  3  of  8) 
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Figure  21.  (Sheet  4  of  8) 
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Figure  21.  (Sheet  6  of  8) 
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Figure  21.  (Sheet  7  of  8) 
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APPENDIX  A 


NON-AMERICAN  NATIONAL  STANDARD  INSTITUTE  LANGUAGE  FEATURES 


A1 


1.  The  CE-QUAL-RIV1  codes  make  use  of  several  non-American  National 
Standard  Institute  (ANSI)  FORTRAN  features  of  the  FORTRAN  IV  language.  Some 
of  these  extensions  to  the  language  are  essential  to  the  organization  of  the 
program;  others  merely  facilitated  writing  and  understanding  of  the  program. 
Each  feature  is  discussed  in  the  order  it  appears  in  International  Business 
Machines  Corp.  (IBM)  (1968,  1974).* 

2.  Character  strings,  employed  in  input  and  output  op_v.  tions,  are 
assigned  values  by  enclosing  the  characters  in  apostrophes  rather  than  through 
Hollerith  literals.  These  strings  appear  in  FORMAT  and  DATA  statements  as 
well  as  where  initial  values  arc  assigned  in  type-specification  statements. 

3.  In  the  water  quality  program  with  all  the  K-rates  used,  it  is  conve¬ 
nient  to  declare  all  variables  beginning  with  the  letter  "K"  as  real  rather 
than  integer.  This  is  done  by  the  nonstandard  IMPLICIT  statement.  It  appears 
as  IMPLICIT  REAL  (K) .  All  other  letters  retain  their  default  status  (A-H  and 
0-Z  are  real;  I,  J,  L,  M,  and  N  are  integer). 

4.  The  END=n  parameter  on  the  READ  statement  causes  the  program  t  >  go 
to  statement  n  when  an  end-of-file  is  encountered  in  attempting  to  read.  In 
the  hydrodynamic  program,  this  is  used  to  stop  execution  upon  exhaustion  of 
input  data.  In  the  water  quality  program,  it  is  used  to  test  when  no  more 
sensitivity  analyses  are  requested. 

5.  Constants  can  be  supplied  by  the  user  to  override  default  values  (or 
in  the  case  of  the  water  quality  program,  values  used  in  previous  runs)  by 
NAMELIST  input.  In  this  form  of  input,  variables  (which  must  appear  in  the 
program's  NAMELIST  dictionary)  are  assigned  values  by  name  in  the  input  deck 
(see  Input  and  Output,  paragraphs  216  and  269-270  in  the  main  text).  Vari¬ 
ables  that  do  not  appear  in  the  input  retain  their  most  recently  assigned 
values . 

6.  The  "Tr"  format  code  indicates  that  the  next  format  item  should 

begin  in  column  r  .  This  code  is  used,  for  instance,  where  the  time  of  day 
is  printed  with  a  colon.  As  an  example,  the  clock  time  is  stored  in  the 
program  as  a  fraction  of  a  day.  A  value  of  0.4  would  be  mathematically 
converted  for  output  to  HH,MM  format  for  9.36.  In  the  FORMAT  statement,  r 
is  selected  such  that  Tr,  will  print  a  colon  in  place  of  the  period 

(9:36). 


*  See  References  at  the  end  of  the  main  text. 


A3 


7.  Two  extensions  to  the  explicit  type  specification  statement  are 
employed.  One  is  length  specification  (REAL*8  is  used  instead  of  DOUBLE 
PRECISION)  and  the  other  is  assignment  of  initial  values  (in  ANSI  FORTRAN  this 
can  take  place  only  in  a  DATA  statement) . 

8.  List-directed  input  allows  input  values  to  appear  anywhere  on  the 
card  as  long  as  they  are  in  order  and  are  separated  by  a  comma  or  blanks  or 
both.  It  is  not  a  standard  feature  of  the  FORTRAN  IV  language,  but  it  is 
included  in  most  compilers.  It  is  indicated  in  the  program  as  READ  (5,*). 

9.  DATE  is  not  a  language  feature  at  all,  but  an  in-house  routine. 

Most  installations,  however,  should  have  something  similar  that  can  supply  to 
the  program  the  current  date  (or  it  can  be  suppressed  entirely  without 
affecting  the  calculations) . 
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LISTING  OF  THE  HYDRODYNAMIC  CODE  RIV1H 
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c  *****************.  *************************************************** 


C  *  * 
C  *  CE-QUAL-RIV1  VAX  VERSION  * 
C  *  RIV1H  CODE  -  HYDRODYNAMIC  MODEL  * 
C  *  * 
C  *  THIS  VERSION  OF  CE-QUAL-RIV1H  CORRESPONDS  TO  THE  FIRST  * 
C  *  RELEASE  VERSION  OF  THE  USER  MANUAL.  * 
C  *  THIS  MODEL  WAS  ORIGINALLY  DEVELOPED  BY  OHIO  STATE  U. ,  * 
C  *  BEDFORD,  SYKES,  AND  LIBICKI.  * 
C  *  THIS  VERSION  HAS  BEEN  MODIFIED  BY:  * 
C  *  M.  DORTCH  AND  T.  SCHNEIDER  OF  THE  * 
C  *  WATER  QUALITY  MODELING  GROUP  * 
C  *  USAE  WATERWAYS  EXPERIMENT  STATION  * 
C  *  VICKSBURG,  MISSISSIPPI,  AND  * 
C  *  D.  GRIFFIN,  JR.  * 
C  *  LOUISIANA  TECH  UNIVERSITY  * 
C  *  RUSTON,  LOUISIANA  * 


C  *******************************,  .************************************ 

c 

c 

C  PROGRAM  FOR  CALCULATING  TIME-VARYING 

C  CROSS-SECTIONAL  AREAS  AND  I  LOWS  AT 

C  VARIOUS  STREAM  SECTIONS  DURING  EPISODES 

C 

C  GOVERNING  EQUATIONS  ARE  THE  CONSERVATION 

C  OF  MASS  AND  THE  CONSERVATION  OF  MOMENTUM 

C  WHICH  ARE  SOLVED  BY  THE  FOUR-POINT 

C  IMPLICIT  FINITE  DIFFERENCE  METHOD. 

C 

C 

C  ************************************************************  A-******** 

c 

C  MODEL  RESULTS  ARE  WRITTEN  TO  FILE  6  AND  FILE  8. 

C  DIAGNOSTICS  ARE  WRITTEN  TO  FILE  7. 

C 

PROGRAM  RIV1H 

COMMON  DJ (70000 ) , Z(500 ) , XMAN(500) , DNDH(500) , AX (500) 

COMMON/ABLOCK/ IND I , IND2, IND3 , IND4 , MTIME , NS , NS 1 , TITLE 
COMMON /MNODE/MNODE 
DIMENSION  TITLE(20) 

OPEN  (UNIT=5 , FILE= ' FILEl ' , STATUS* 'OLD ' ) 

OPEN  (UNIT=6 , FILE* 'F1LE2 1 , STATUS* 'NEW ' ) 

READ(5, 10)TITLE 
READ(5,*)MNODE, MTIME, NS 
C 

INDl=MNODE 
IND2=iO*(MNODE-l ) 

IND3=2*MNODE 
IND4=4*MNODE 
NSi  =  NS+1 
N1  =  INDl+i 


N2  =  N1+IND1 
N3  =  N2+IND1 
N4  =  N3+IND1 
N5  =  N4+IND1 
N6  =  N5+IND1 
N7  =  N6+IND1 
N8  =  N7+IND1 
N9  =  N8+IND1 
NIC  =  N9+IND1 
Nil  =  N10+IND1 
N12  =  Nll+INDl 
N13  =  N12+IND1 
N14  -  N13+IND1 
N15  =  N14+IND1 
N16  =  N15+IND1 
N17  =  N16+IND3 
N18  =  N17+IND3 
N19  =  N18+NS 
N20  =  N19+NS 
N21  =  N20+NS 
N22  =  N21+NS 
N23  =  N22+NS 
N24  =  N23+NS 
N25  =  N24+NS 
N26  =  N25+NS 
N27  *  N26+NS 
N28  =  N27+NS 
N29  =  N28+NS 
N30  =  N29+NS 
N31  =  N30+NS 
N32  =  N31+NS 
N33  =  N32+NS 
N34  =  N33+NS 
N35  =  N34+/t*NS 
N36  =  N35+10*NS 
N37  =  N36+NS1 
N38  =  N37+NS1 

CALL  MAIN2(DJ(1),DJ(N1),DJ(N2),DJ(N3),DJ(N4),DJ(N5),DJ(N6),DJ(N7), 
@DJ (N8),DJ(N9),DJ(N10),DJ(N11),DJ(N12),DJ(N13),DJ(N14),DJ(N15), 

@DJ (N16) ,DJ(N17) ,DJ(N18) , DJ(N19) , DJ (N20) ,DJ (N21 ) ,DJ (N22) , DJ(N23 ) , 
@DJ (N24),DJ(N25),DJ(N26),DJ(N27),DJ(N28),DJ(N29),DJ(N30),DJ(N31), 
@DJ (N32),DJ(N33),DJ(N34),DJ(N35),DJ(N36),DJ(N37),DJ(N38),DJ(1), 

@Z( IND1 ) , XMAN( IND1 ) , DNDH( IND1 ) , AX( IND1 ) ) 

STOP 

10  FORMAT (20A4) 

END 

C 

C 

C  **********************************  A****************************;*:***** 
C 

C  THIS  IS  THE  MAIN  PROGRAM  CONTAINING  THE  READ,  WRITE,  AND  CONTROL 
C  PORTIONS  OF  THE  MAIN  TIME  MARCH  (WHICH  ENDS  WHEN  INPUT  DATA  IS 
C  EXHAUSTED).  THE  NONLINEAR  EQUATIONS  ARE  SOLVED  SIMULTANEOUSLY 
C  BY  THE  NEWTON-RAPHSON  ITERATIVE  PROCEDURE. 

C 
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***************** A***** A***** A********* A***************************** 

SUBROUTINE  MAIN2(Q,A,B,EL,DX1 ,QL,H, 13 , Cl , C2, C3 , CN1 , KE1 , XC,XM, RMILE 
@, C, R, LIB , ID, NODE 1 , NNODE , FEEDS , ORDER , JNODE , JBCU , J  BCD , BCU , BCD , JT , 
@COSP , ITO , ITi , IT2 , T , SNAME , IBC , BC , AA , HYDRO , Z , XMAN , DNDH , AX ) 

COMMON/ ABLOCK/ IND1 , IND2 , IND3 , IND4 , MTIME , NS , NS 1 , TITLE 

COMMON/MNODE/MNODE 

REAL  KE1 

INTEGER  ORDER, FEEDS 

DIMENSION  TITLE ( 20) , DX1 ( IND1 ) , Q( IND1 ) , A( IND1 ) , B( IND1 ) , 13 ( IND1 ) , 

@C1  ( INDi ) ,  C2(  IND1 ) ,  C3(IND1 )  ,H(  IND1 ) ,  EL(IND1 )  ,QL(  IND1 ) ,  CN1  ( INDJL ) , 
@KE1 ( INDI ) , R( IND3 ) , AA( IND2) ,XC( INDi ) , XM( INDI ) , RMILE( INDI ) , 
@HYDRO(IND4),C(IND3) , LIB(NS) , ID(NS) .N0DE1 (NS) , 

@NNODE(NS) .FEEDS (NS) .ORDER (NS) ,JNODE( NS) , JBCU(NS) , JBCD(NS) , 

@BCU(NS ) , BCD (NS) , JT(NS) , COSP(NS) , ITO(NS) , ITI (NS) , IT2(NS) , 

@T(4 , NS) , SNAME ( 10 , NS ) , IBC(NSi ) , BC(NS1 ) , Z( INDI ) , XMAN ( INDI ) , 

@DNDH( INDI ),AX( INDI) 

A*****************************************************;*:*************** 

200  UPDATE  INTERVALS,  10  BOUNDARY  CONDITIONS 
********************************************************************** 
DIMENSION  IUPD( 200 ) , DUMMY ( 10 , 200) , DLT( 200 ) 

CHARACTERS  ADATE 

DATA  GR/3 2 . 1 74/ , THETA/ 0 . 55 / , TOLER/ 0 .001/, BETA/ 1.0/, FLOW/ ' Q ' / , 
(3RCURVE/  '  R '  /  ,  IPRINT/ 1  / 

NAMELI ST/CONST/BETA , GR , IPRINT , RMILEO, THETA , TOLER 
READ (5, CONST) 

M2  =  0 
DO  1  L=1 , NS 
NODEl(L)  <=  M2+1 

READ  THE  SEGMENT  CARD 

READ(5 , 2)ID(L) , (SNAME(J , L) , J=1 , 10) ,NNODE(L) ,FEEDS(L) , JNODE(L) , 

@  BTU, BCU(L) , BTD, BCD(L) , COSP(L) 

2  FORMAT(I2 , 10A4, 313 , 2(A1 ,F8. 0) ,F8. 0) 

PARSE  THE  SEGMENT  CARD 
I.IB(I.)  =  1 

IF ( BTU. EQ. FLOW) LIB (L)  =  4 

IF ( BTD. EQ. FLOW) LIB (L)  =  LIB(L)+1 

IF(BTD. EQ. RCURVE)LIB(L)  ■=  LIB(L)+2 

CHECK  TO  SEE  IF  THIS  SEGMENT  IS  A  TRIBUTARY 

IF(JNODE(L) . EQ. 0)GO  TO  4 
COSP(L)  =  COS(0 . 01 74533*COSP(L) ) 

IF(LIB(L).LE.3)GO  TO  5 
LIB(L)  =  4 
GO  TO  4 
5  LIB(L)  =  1 
4  CONTINUE 

Ml  =  NODEl(L) 

M2  =  Mi+NNODE(L)-l 
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C  READ  INITIAL  CONDITIONS  CARDS 
C 

DO  7  I=M1 ,M2 

READ( 5 , 20 )DX1 ( I ) , Q( I ) , H( I ) , QL( I ) , EL( I ) , Cl ( I ) , C2 ( I ) , C3 ( I ) , 

@  CN1(I) ,KEl(I) , AX(I) ,DNDH(I) 

7  CONTINUE 
1  CONTINUE 

WRITE(6,30)TITLE 
WRITE (6, CONST) 

WRITE(6I40)(DX1(I))Q(I),H(I),QL(I),EL(I),C1(I),C2(I),C3(I), 
@  CNl(I),KEi(I),AX(I),DNDH(I),I=i,INDl) 

C 

C  READ  THE  BOUNDARY  CONDITIONS  ID  CARD 
C 

DO  26  L=1 , NS1 
26  IBC(L)  =  0 
READ(5,*)IBC 
WRITE(6,*)IBC 
C 

C  UNSCRAMBLE  REFERENCES 
C 

DO  31  L=1 , NS 
JBCU(L)  =  0 
JBCD(L)  =  0 
DO  31  M=1 ,NS 

IF( FEEDS (L) . EQ. ID(M) ) FEEDS (L)  =  M 
31  CONTINUE 
NBC  =  0 
DO  29  L=1 , NS1 
IF(IBC(L).EQ.O)GO  TO  24 
NBC  =NBC+1 
DO  25  M=1 ,NS 

IF(  IBC(I.) .  EQ.  ID(M))IBC(L)  =  M 
IF(IBC(L).EQ.-ID(M))IBC(L)  =  -M 
25  CONTINUE 
29  CONTINUE 
24  CONTINUE 
C 

C  INPUT  FOR  BOUNDARY  CONDITIONS 

C  NUM=  NUMBER  OF  UPDATES,  UPD=UPDATE  ITERATIONS 

C 

READ(5 , 101 )NUM 
WRITE(6 , 101 )NUM 

READ ( 5 , 1 0 1 ) ( IUPD ( LLL ) , LLL= 1 , NUM ) 

WRITE ( 6 , 1 0 1 ) ( IUPD ( LLL ) , LLL= 1 , NUM ) 

DO  201  LLL=i ,NUM 

READ(5 , 150)DLT(LLL) , (DUMMY( I II , LLL) , 111=1 ,NBC) 
WRITE(6, 150)DLT(LLL) , (DUMMY( II I , LLL) , 111=1 ,NBC) 

Ui  uuiuinu^. 

101  FORMAT(7UO) 

ICOUNT=l 

C 

C  CONSTRUCT  CROSS-REFERENCE  BOUNDARY  CONDITIONS  DIRECTORY 


B6 


o  o  n 


IF(NBC. LE. 0)GO  TO  33 
DO  32  L=1 ,  NBC 
IF( IBC(L) ) 28,32,27 
28  JBCD(-IBC(L) )  =  L 
GO  TO  32 

27  JBCU( IBC(L) )  =  L 

32  CONTINUE 

33  CONTINUE 

ESTABLISH  AN  "UPSTREAM"  ORDERING  OF  THE  SEGMENTS 

DO  42  1=1, NS 
ORDER(I)  =  0 
IT1(I)  o  0 
ITO(I)  =  0 
IT2(L)  =  0 

IF(FEEDS(I).NE.O)GO  TO  42 
ORDER ( 1 )  =  I 

42  CONTINUE 
L  =  1 
IT  =  0 

DO  44  1=1, NS 
M  =  ORDER ( I ) 

DO  44  J=1 , NS 

I F( FEEDS ( J ) . NE . M ) GO  TO  44 
L  =  L+l 
ORDER(L)  =  J 

IF(JNODE(J ) . GT. 0)GO  TO  39 
JBCU(M)  =  -(NODE1 ( J )+NNODE( J )-l ) 

IF(LIB(M).LE.3)LIB(M)  =  LIB(M)+3 
GO  TO  38 
39  IT  =  IT+1 

IF(IT1(M).EQ.0)IT1(M)  =  IT 
JT(IT)  =  JNODE(J) 

IT2(M)  =  IT 
ITO(J)  =  IT 

JBCD(J)  =  -(NODE1 (M)+JNODE( J)-i ) 

38  IF(L.EQ.NS)GO  TO  43 
44  CONTINUE 

43  CONTINUE 

IF(NS.GT. 2) CALL  BUBBLE ( ITO , IT1 , IT2 , JT, NS) 

C 

C  TRANSFORM  INITIAL  STAGES  INTO  INITIAL  CROSS-SECTIONAL  AREAS  AND 
C  CHANNEL  TOP-WIDTHS.  C3<0  IS  THE  SIGNAL  THAT  AN  ELLIPSOID  CROSS- 
C  SECTION  IS  INDICATED. 

C 

DO  70  1=1 , IND1 
XMAN(I)=CN1(I) 

CN1(I)  =  CNl(I)**2/2. 2*GR 
Z(I)  =  EL(I) 

EL(I)  =  H( I )+EL( I ) 

IF(C3 ( I ) . LT. 0.0)  GO  TO  60 
IF(AINT(C3 ( I) ) . EQ. C3 ( I) )G0  TO  65 
13(1)  =  0 

A(I)=Ci(I)*H(I)+C2(I)*H(I)**C3(I) 
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B(I)=C1(I)+C2(I)*C3(I)*H(I)**(C3(I)-1. ) 

GO  TO  70 

65  13(1)  =  C3 ( I ) 

A(I)=C1(I)*H(I)+C2(I)*H(I)**I3(I) 

B(I)=C1(I)+C2(I )*C3 (I)*H(I)**(I3(I)-1) 

GO  TO  70 

60  13(1)  =  -1 

B(I)=2.*C2(I)/C1(I)*SQRT((2.*C1(I)-H(I))*H(I)) 
A(I)=Cl(I)*C2(I)*ACOS(l.-H(I)/Cl(I))-B(I)*(Cl(I)-H(I))/2. 
70  CONTINUE 

CALCULATE  RIVERMILE  FOR  EACH  POINT  IN  THE  NETWORK 

DO  49  LL=1,NS 
L  =  ORDER (LL) 

Ml  =  NODE1 (L)+l 
M2  =  NNODE(L)+Ml-2 
IF(LL.GT. 1)G0  TO  51 
RM1LE(M2)  =  RMILEO 
GO  TO  52 

51  IF(JN0DE(L) . GT. 0)GO  TO  53 
LJ  =  FEEDS (L) 

MJ  =  NODEl(LJ) 

RMILE(M2)  =  RMILE(MJ) 

GO  TO  52 

53  RMILE(M2)  =  0. 

52  CONTINUE 

DO  54  II=M1 ,M2 
I  =  M1+M2-II 

RMILE(I-l)  =  RMILE( I )+DXl ( I  —  1 ) /5  280 . 

54  CONTINUE 
49  CONTINUE 

WRITE  OUT  INITIAL  DATA 

WRTTE(8)IND1,MTIME,NS 

WRITE(8)JT , IT0, IT1 , IT2 , ORDER, NNODE , NODE 1 , ID, JBCU 
WRITE(8)DX1 , QL, RMILE 
G2  =  GR/2. 

CALL  DATE(ADATE) 

ITIME  =  0 
ELAPSE  =0.0 
80  CONTINUE 

CALCULATE  ROOT  MEAN  SQUARE  Q  &  H  FOR  TOLERANCE  TEST 

RMSQ  =  0. 

RMSA  =  0. 

DO  66  1=1 , IND1 
RMSQ  =  RMSQ+Q(I)*Q(I) 

RMSA  =  RMSA-t-A(  I  )*A(  I ) 

66  CONTINUE 

RMSQ  =  TOLER*SQRT(RMSQ)/FLOAT(INDl ) 

RMSA  =  TOLER*5QRT(RMSA)/FLOAT(INDi) 
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C 

C  BEGIN  THE  MAIN  TIME  MARCH  LOOP 
C 

C  WRITE  OUT  THE  PREVIOUS  TIME  STEP'S  DATA 
C 

IEHOUR=»ELAPSE*24 .  +0.008 
IEMIN-(ELAPSE*24. -IEHOUR)*60 .+0.5 
IF(MOD( ITIME , IPRINT) . NE. 0)G0  TO  82 
DO  81  L=1 , NS 
WRITE(6, 100)ADATE 
WRITE( 6 , 1 10)TITLE 

WRITE(6, 120)IEHOUR, I EMIN, ITIME, ID(L) , (SNAME(J.L) , J=1 , 10) 

WRITE(6, 130) 

M  =  NODE1 (L)-l 
M2  =  NNODE(L) 

WRITE(6 , 140 ) ( I , RMILE( I+M) , Q( I+M) , A( I+M) , B( I+M) , H( I+M) , EL( I+M) , 

@  XMAN( I+M) , 1=1 ,M2) 

81  CONTINUE 

82  CONTINUE 

WRITE ( 8 ) DT , HYDRO 
C 

C  ****** A*********************** A**** A*** A* A****************************** 

C  *CHECK  COURANT  NO.  IF  GREATER  THAN  1.0,  PRINT  TO  FILE  7.  * 

C  *COURANT  NO.  GREATER  THAN  1.0  WILL  CAUSE  THE  RIV1Q  CODE  TO  GO  UNSTABLE.* 

C  ************************************************************************ 

c 

MNM1  =  MNODE  -  1 
DO  683  IK  o  2,  MNM1 

COURANT  =  (  Q( IK)  *  DT  )  /  (  DXi(IK)  *  A(IK)  ) 

IF  (  COURANT  .GT.  .99  )  WRITE(7,684)  IK,  ELAPSE,  COURANT 

683  CONTINUE 

684  FORMAT  (10X,  'NODE  ',  13,  10X,  'ELAPSE  =  ’,  F10.6, 

<3  5X,  'COURANT  NO  =  '  ,  F6. 2  ) 

685  FORMAT  ( /// , 10X, 'NODE  ',  13,  10X,  'ELAPSE  =  '.F10.6,  'FLOW 
@  IS  NEGATIVE') 

C 

ITIME=ITIME+1 

UPDATE  TIMES 

I F ( I COUNT . GT . NUM ) RETURN 

DT=DLT( ICOUNT) 

DO  301  J=1 ,NBC 

BC( J )  =  DUMMY (J, ICOUNT) 

301  CONTINUE 

ELAPSE=ELAPSE+DT/ 86400 . 

IF( ITIME. GE. IUPD( ICOUNT) )ICOUNT=ICOUNT+l 
C  ************************************************************************** 

c  * 

C  VARIABLE  MANNING'S  N  VALUES:  * 

C  MANNING'S  n  IS  ALLOWED  TO  VARY  WITH  DEPTH  USING  A  LINEAR  RELATIONSHIP  * 
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C  WITH  AX  (THE  INTERCEPT)  AND  DNDH  (THE  PARTIAL  OF  N  WITH  RESPECT  TO  * 

C  HEIGHT)  * 

C  THE  "DO  165"  LOOP  BELOW  COMPUTES  THE  VALUES  OF  THE  VARIABLE  MANNING'S  * 

C  n,  XMAN,  AND  THE  VALUE  OF  CNi(I)  FOR  EACH  NODE  FOR  THE  FIRST  ITERATION  * 

C  WITHIN  A  TIME  STEP.  IF  ADDITIONAL  ITERATIONS  WITHIN  THE  SAME  TIME  * 

C  STEP  ARE  REQUIRED,  A  SIMILAR  LOOP  IS  PROVIDED  JUST  PRIOR  TO  * 

C  RE-ENTERING  SUBROUTINE  ITER  BELOW.  * 

C  AAikA^A*****:*:*********:*:*****:*:************)*:*;*!******************************* 

DO  165  1=1 , INDi 

IF(AX(I).NE.O.O. AND. DNDH( I ) . NE . 0 . 0 ) THEN 
XMAN(I)=AX(I)  -  DNDH( I )*H( I ) 

IF(XMAN( I) . LE. 0. 01 )THEN 
WRITE(7, 177)1 

177  FORMAT( 'VALUE  FOR  XMAN  AT  I  =\I9,'  IS  <  0.01-  SET  TO  0.01') 
XMAN(I)=0. 01 
END  IF 

CNl(I)=XMAN(I)**2*GR/2. 2 
END  IF 
165  CONTINUE 


CALLING  SUBROUTINES 

DO  400  LL=1 ,NS 
L  =  ORDER(NS-LL+l ) 

M  =  NODEl(L) 

Ml  =  NNODE(L) 

M2  =  2*M-1 

IF(JBCU(L))401, 402,403 

401  JJ  =  -JBCU(L) 

BCU(L)  =  Q( JJ ) 

GO  TO  402 

403  JJ  =  JBCU(L) 

BCU(L)  =  BC(JJ) 

402  IF(JBCD(L) ) 4 04, 405 , 406 

404  JJ  =  -JBCD(L) 

BCD(L)  =  EL(JJ)-EL(M+M1-1 )+H(M+Ml-l ) 

GO  TO  405 
406  JJ  =  JBCD(L) 

BCD(L)  =  BC(JJ) 

405  CALL  CALC (THETA, DT,DX1(M),Q(M),A(M),B(M),I3(M),C1(M),C2(M),C3(M), 
@  H(M),EL(M),QL(M),G2,CN1(M),KE1(M),XC(M),XM(M),C(M2),R(M2),AA, 

@  LIB(L) , BCU(L) , BCD(L) , COSP(L) , BETA, IT0(L),ITi(L),IT2(L),JT,T, 

@  M1,10*(M1-1), 2*M1 ,NS, ID(L) ,XMAN(M) , DNDH(M) ) 

400  CONTINUE 

THE  "DO  180"  LOOP  ITERATES  TO  FIND  A  SET  OF  Qs  AND  As  WHICH  WILL 
SATISFY  THE  BASIC  EQUATIONS  WITHIN  THE  TOLERANCE  SPECIFIED  BY  THE 
TOLERANCE  PARAMETER 

DO  180  K«l,  50 

SWEEP  UPSTREAM 

DO  407  LL=i ,NS 


BIO 


L  =  ORDER (LL) 

M  =  NODEl(L) 

Mi  =  NNODE(L) 

M2  =  2*M-1 

CALL  NEV?(R(M2)  ,  Q(M) ,  A(M)  ,B(M)  ,H(M)  ,EL(M)  ,  I3(M)  ,C1(M)  ,C2<’M)  ,C3  (M) 
@  , C(M2) , ITO(L) , IT1 (L) , IT2(L) , JT,T,M1 , 2*M1 ,NS,Z(M) ) 

407  CONTINUE 
C 

C  CHECK  EACH  OF  THE  COMPUTED  DEPARTURES  FOR  Q  AND  A.  IF  ANY  IS  LARGER 
C  THAN  THE  COMPUTED  TOLERANCE  FOR  EACH,  GO  FOR  ANOTHER  ITERATION, 

C  A  MAXIMUM  OF  50. 

C 

DO  160  1=1 , INDi 

IF(ABS(R(2*I-l)).GT.RMSQ.OR.ABS(R(2*I)).GT.RMSA)GO  TO  170 
160  CONTINUE 

C  AT  THIS  EOINT  COMPUTATIONS  FOR  A  SINGLE  TIME  STEP  ARE  COMPLETE. 

C  COMPUTATIONS  ARE  RESTARTED  AT  STATEMENT  80,  LOCATED  WHERE  THE  TIME 
C  MARCH  BEGINS . 

GO  TO  80 
C 

170  CONTINUE 

C  TO  EXAMINE  NODE  AT  WHICH  NON-CONVERGENCE  IS  OCCURRING  THE 
C  FOLLOWING  LINE  HAS  BEEN  ADDED  TO  THE  CODE  AS  A  DIAGNOSTIC. 

IF(K. GE. 25) THEN 

WRITE ( 7 ,  *)  'Z(I)=  '  ,Z(I) , '  ELAPSE=  '.ELAPSE,'  TOLER  TST' 

WRITE( 7 ,  *)  ' ABS(R( 2*1-1 ) )=  ' , ABS(R( 2*1-1 ) ) , '  RMSQ=  ' , RMSQ 
WRITE( 7  ,*)  'ABS(R(2*I)=  ' , ABS(R(2*I ) ) , '  RMSA=  ' , RMSA 
END  IF 
C 

C  ******************************************************************** 

C  THIS  LOOP  IS  IDENTICAL  TO  THE  "DO  165"  LOOP  ABOVE.  IT  RECOMPUTES  * 

C  MANNING'S  n  AND  CN1(I)  USING  NEW  H(I)  VALUES,  WITHIN  A  TIME  STEP.  * 

C  ******************************************************************** 
DO  166  1=1, INDI 

IF(AX(I).NE.0.0. AND . DNDH ( I ) . NE . 0 . 0 ) THEN 
XMAN(I)=AX(I)  -  DNDH(I)*H(I) 

IF(XMAN(I).LE.0.01) THEN 
WRITE(7, 177)1 
XMAN(I)=0.01 
END  IF 

CNl(I)=XMAN(I)**2*GR/2. 2 
END  IF 
166  CONTINUE 
C 

C  THE  "DO  408"  LOOP  RESETS  BOUNDARY  CONDITIONS  FOR  CORRECTED  FLOWS 
C  AND  SOLVES  THE  SYSTEM  OF  EQUATIONS  FOR  NEW  DEPARTURES 
C 

DO  408  LL=1 , NS 
L  =  ORDER(NS-LL+l ) 

M  =  NODEi(L) 

Mi  =  NNODE(L) 

M2  =  2*M-1 


Bll 


I F ( J BCU (  L )  .  GE .  0  ) GO  TO  409 
JJ  <=  -JBCU(L) 

BCU(L)  =  Q( JJ ) 

409  IF(JBCD(L).GE.O)GO  TO  410 
JJ  =  -JBCD(L) 

BCD(L)  =  EL(JJ )-EL(M+Ml-l )+H(M+Ml-l ) 

410  CALL  I TER ( THETA, DT, DX1(M),Q(M),A(M),B(M),I3(M),C1(M),C2(M),C3(M), 
@  H(M),EL(M),QL(M),G2,CN1(M),KE1(M),XC(M),XM(M},C(M2),R(M2),AA, 

<3  LIB(L)  ,  BCU(L)  , BCD(L)  , COSP(L)  ,  BETA,  ITO(I.)  ,  IT1  (L)  ,  IT2(L)  ,  JT,  T, 

<3  MI , 10*(M1-1 ) , 2*M1 ,NS, ID(L) ,XMAN(M) ,DNDH(M) ) 

408  CONTINUE 
180  CONTINUE 

WRITE(6, 190) 

STOP  7 

200  CONTINUE 
RETURN 

20  FORMAT(12F6.0) 

30  FORMAT( IX, 20A4) 

40  FORMAT( IX, 12F10. 3) 

100  FORMAT (  '  1  'DYNAMIC  RIVERINE  WATER  QUALITY  MODEL'  ,  '  ,  '  , 

@  'CE-QUAL-RIV1  ' ,  '  RT.V1H  ',A9> 

110  FORMAT ( 'O' ,20A4) 

120  FORMAT( 'O' , 'ELAPSED  TIME  ',13,'  HOURS  ',12,'  MINUTES '. 5X, 'TIME 
@  'STEP  ',15,'  SEGMENT ', 13, '  ' , 10A4) 

130  FORMAT( 'O' ,T7, 'RIVER' ,7X, '  FLOW  '  , 7X, ’  AREA  ',7X,'  WIDTH  ', 

@  7X,  '  .  EP TH  ' , 7 X ,  '  WSEL' , 10X, 'MANNINGS  N ',/ , 

@  '  ' , T8 ,  'Mi;  ,E ' , 7X , '  (CFS)  ' , 7X,  '  (SQFT)',7X,  '  (FEET)  ', 

@  7X, '  (FL_T)  ' , 7X, '  (FEET)  ') 

140  FORMATC  ' ,  12 ,  F9 . 2 , 6F15 . 3 ) 

150  FORMAT(7FiO.O) 

190  FORMAT('OTHE  ITERATION  HAS  FAILED  TO  CONVERGE  IN  50  STEPS.  RUN', 

@  '  ABORTED') 

END 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


SUBROUTINE  CALC 
PURPOSE 

TO  CALCULATE  THE  RESIDUALS  FROM  THE  GOVERNING  EQUATIONS 

TO  CALCULATE  THE  PARTIAL  DERIVATIVES  OF  THE  GOVERNING  EQUATION 

TO  SET  UP  A  VECTOR  OF  THE  RESIDUALS 

TO  SET  UP  A  MATRIX  OF  THE  PARTIAL  DERIVATIVES 

TO  SOLVE  THIS  SYSTEM  OF  EQUATIONS  FOR  THE  DIFFERENCES  BETWEEN 

THE  VALUES  OF  Q  AND  A  IN  TWO  CONSECUTIVE  ITERATIONS 

DESCRIPTION  OF  PARAMETERS 

XC  -  THE  J  TERMS  FROM  THE  CONTINUITY  EQUATION 

XM  -  THE  J  TERMS  FROM  THE  MOMENTUM  EQUATION 

R1  -  THE  RESIDUALS  FROM  THE  CONTINUITY  EQUATION 

R2  -  THE  RESIDUALS  FROM  THE  MOMENTUM  EQUATION 

R  -  A  COLLECTION  OF  ALL  OF  THE  RESIDUALS  IN  THE  PROPER 

ORDER  FOR  THE  VECTOR 
F  -  THE  CONTINUITY  EQUATION 

G  -  THE  MOMENTUM  EQUATION 

DFQ  -  PARTIAL  DIFFERENTIAL  OF  F  WITH  RESPECT  TO  Q(I) 

DFA  -  PARTIAL  DIFFERENTIAL  OF  F  WITH  RESPECT  TO  A(I) 
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ooo  on  on  ooo 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


DFQ1  -  PARTIAL  DIFFERENTIAL  OF  F  WITH  RESPECT  TO  Q(I+1) 

DFA1  -  PARTIAL  DIFFERENTIAL  OF  F  WITH  RESPECT  TO  A(I+1) 

DGQ  -  PARTIAL  DIFFERENTIAL  OF  G  WITH  RESPECT  TO  Q(I) 

DGA  -  PARTIAL  DIFFERENTIAL  OF  G  WITH  RESPECT  TO  A(I) 

DGQ1  -  PARTIAL  DIFFERENTIAL  OF  G  WITH  RESPECT  TO  Q(I+1) 

DGA1  -  PARTIAL  DIFFERENTIAL  OF  G  WITH  RESPECT  TO  A(I+1) 

AA  -  A  COLLECTION  OF  ALL  OF  THE  PARTIAL  DERIVATIVES  IN 
THE  PROPER  ORDER  FOR  THE  BANDED  MATRIX 
DNDH  -  PARTIAL  OF  N  WITH  RESPECT  TO  H 
********************* A******** A************************************* 

SUBROUTINE  C ALC( THETA, DT, DX1 , Q, A, B , 13 , Cl ,C2 , C3 ,H, EL, QL, G2 ,CNi , KE1 , 
@XC, XM,C,R,AA, LIB, BCU, BCD, COSP, BETA, ITO, ITi, IT2, JT,T, IND1 , IND2, 
@IND3 ,NS, ID,XMAN, DNDH) 

REAL  KE1 

LOGICAL  FLIP1 , FLIP2 

DIMENSION  Q( INDI ) , A( IND1 ) , B( INDl ) , H( IND1 ) , Cl ( IND1 ) , C2( IND1 ) , 

@C3 ( INDl ) , EL( INDl ) , QL( INDl ), CN1 ( INDl ), KE1 ( INDl ) , R( IND3 ) , AA( IND2 ) , 
@XC( INDl ), XM( INDl ), DX1( INDl ),C(IND3), 13 ( INDl ) , JT(NS) ,T(4, NS), 

@ID(NS ) , XMAN( INDl ) , DNrH( INDl ) 


THE  PREVIOUS  TIME  STEP  COMPONENTS  OF  THE  GOVERNING  EQUATIONS 

MP=INDl-l 
QO  -  Q( 1 ) 

AO  =  A( 1 ) 

PO  =  (B(l)/AO)**(4./3. )*ABS(QO)/AO 
D1  =  (1. -THETA )*DT 
DO  10  1=1, MP 
D2  =  Dl/DXl(I)*2. 

Q1  =  Q(I+1) 

A1  =  A( 1+1 ) 

PI  =  (B(I+l)/Al)^*(4./3. )*ABS(Q1 )/Al 
DE  =  EL( 1+1 )-EL( I ) 

XC(I)=  -A0-A1+D2*(Q1-Q0)-D1*(QL(I)+QL(I+1>) 

XM(I)=  -QO-Q1+D2*(B2TA*(Q1*Q1/'A1-QO*QO/AO)+G2*(A1+AO)*DE; 

<?  +D1*(CN1(I)*?0*Q0  +  (CN 1(1+1) *P1*Q1)) 

IF(KE1(I).GT.0)XM(I)=XM(I)+D2/8.*(A0+A1)*KE1(I)*U'1*Q1/(A1*A1) 
@  +Q0*Q0 / ( AO  *A0 ) ) 

PO  =  PI 
QO  «  Qi 
AO  =  A1 
10  CONTINUE 

XC(INDl)  =  Dl*Ql 
XM(INDl)  =  D1*Q1*Q1/A1*C0SP 


THIS  IS  THE  ENTRY  POINT  FOR  ALL  SUCCEEDING  ITERATIONS  OF  THE 
NEWTON-RAPHSON  PROCEDURE 


ENTRY  ITER (THETA, DT, DX1 , Q, A, B , 13 , Cl , C2 , C3 , H, EL, QL, G2 , CN1 , KE1 , XC , 
@XM , C , R , AA , LIB , BCU , BCD , COSP , BETA . ITO , ITI , IT2 , JT , T , IND  t , IND2 , IND3 , 
@NS, ID, XMAN, DNDH) 

THE  UPSTREAM  BOUNDARY  CONDITIONS 
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IF(LIB.GT, 3)G0  TO  30 
EL( i )  -  EL(1)-H(1)+BCU 
H(l)  -  BCU 
IF(I3(1))20, 14,15 

14  A( 1 )«C1 ( 1 )*H( 1 )+C2( 1 )*H( 1 )**C3 ( 1 ) 
B(1)«C1(1)+C2(1)*C3(1)*H(1)**(C3(1)-1.) 

GO  TO  40 

15  A(l)-Cl(l)*H(i)+C2(l)*H(l)**I3(l) 
B(1)»C1(1)+C2(-1)*C3(1)*H(1)**(I3(1)-1) 

GO  TO  40 

20  B( 1 )-2 . *C2 ( 1 ) /Cl (1 )*SQRT( ( 2 . *Ci ( 1 )-H( 1 ) )*H( 1 ) ) 

A(l)«Cl(l)*C2(l)*ACOS(l.-H(l)/Cl(l))-B(l)*(Cl(l)-H(l))/2. 

GO  TO  40 
30  Q(1)-BCU 
40  CONTINUE 

DOWNSTREAM  BOUNDARY  CONDITIONS 

GO  TO(43 , 60, 70 , 43 , 60 , 70) , LIB 

43  EL(INDl)  -  EL(IND1)-H(IND1)+BCD 
H( IND1 )*BCD 

AA(IND2)  =  0. 

R(IND3)  =  0. 

IF(I3(INDl))50,44,45 

44  A( IND1 )-Cl ( IND1 )*H( INDl )+C2 ( IND1 )*H( INDl )**C3 ( IND1 ) 

B< INDl )»C1 (INDl )+C2(INDl)*C3(INDl)*H(INDl)**(C3(INDl)-l. ) 

GO  TO  51 

45  A( INDl )-Cl ( INDl )*H( INDl )+C2( INDl )*H( INDl )**I3 ( INDl ) 

B( INDl )»C1( INDl )+C2( INDl )*C3( INDl )*H( INDl )**( 13 ( INDl )-l) 

GO  TO  51 

50  B( INDl )=2.*C2 (INDl) /Cl ( INDl )*H( INDl )*SQRT( 2. *C1( INDl )/H( INDl )-l. ) 
A( INDl )=CU INDl ) *C2( INDl )*ACOS( 1 . -H( INDl ) /Cl ( INDl ) ) 

@  -B( INDl )*(C1( INDl )-H( INDl ) )/2.  I 

51  C(IND3)  =  -B(INDl) 

GO  TO  80 

60  Q( INDl )»BCD 
R(IND3)*0. 

AA(IND2)  =  0. 

GO  TO  80 
70  EXPO  =  BCD 
COEF  -  COSP 

R( IND3 )=-(COEF*Q( INDl )**EXP0-H( INDl ) ) 

DBCQ=C0EF*EXP0*Q ( INDl )**<EXP0-i . ) 

DBCA«=-1./B(IND1) 

AA( IND2-1 )=DBCQ 
AA(IND2)*DBCA 
80  CONTINUE 

IF( 13 ( 1 ) ) 90 , 84 ,85 

84  DBDH=C2(,1  )*C3(  li)*(C3 ( 1  )-l .  )*H(  1  )**(C3 ( l)-2—) 

DNDH2  «=  DNDH(l) 

GO  TO  100 

8  5  DBDH=C  2  ( 1 )  *03  ( lb)  *  ( C3  ( 1 )  - 1 ,  )  *H  ( 1 )  **  ( 1 3  ( 1 )  -  2 ) 

DNDH9  »  DNDH(l) 

GO  TO  100 

90  DBDH-4.*(C2(1)/C1( 1 ) )**2*(C1 ( 1 )-H( 1 ) ) /B( 1 ) 
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DNDH2  «  DNDH(l) 

100  CONTINUE 

THE  GOVERNING  EQUATIONS 

MP  -  IND1-1 
QO  -  Q(l) 

AO  -  A(i) 

PO  -  (-B(1)/A0)**(4./3.)*ABS(Q0)/A0 
IR  -  2 
IA  »  1 

D1  »  THETA*DT 
DO  130  1-1, MP 
D2  =  Di/DXl(I)*2. 

Qi  -  Q(I+1) 

A1  -  A(I+1 ) 

PI  =  (B(I+1)/A1)**(4./3.)*ABS(Q1)/A1 
CN  -  CN1 ( I )*Dl 
CN2  «  CN1 ( 1+1 )*D1 
DE  -  EL( 1+1 )-EL( I ) 

R( IR)«-(A0+A1+D2*(Q1-Q0 )-Di*(QL( I )+QL( 1+1 ) )+XC( I ) ) 
R(IR+1).;-(Q0+Qi+D2*(BETA*(Q1*Q1/Ai-Q0*Q0/A0)+G2*(A0+A1)*DE) 

@  +(CN*Q0*P0+CN2*Q1*P1)+XM(I)) 

DFQ  *  -D2 
DFA  =  1. 

DFQ1  =  D2 
DFA1  -  1. 

DGQ  =  1 • -2. *D2*BETA*QO/AO  +  CN*PO 

DGA  =  D2*(BETA*QO*QO/(AO*AO)+G2*(DE-(A1+AO)/B(I))) 

Q  +CN*Q0*P0/3 . *( -7 . /AO+4. *DBDH/ (B( I )*B( I )+6 . /XMAN( I )*B( I )*DNDH2 ) ) 
DGQ1  -  1.+2.*D2*BETA*Q1/A1+  CN2*P1 
IF(I3(I+1))110,104,105 

104  DBDH=C2(I+l)*C3(I+l)*(C3(I+l)-i.)*H(I+l)**(C3(I+l)-2. ) 
DNDH2=DNDH(I+1) 

GO  TO  120 

105  DBDH=C2(I+1)*C3(I+1)*(C3(I+1)-1. )*H(I+l)**(I3(I+l)-2) 
DNDH2-DNDH(I+1) 

GO  TO  120 

110  DBDH=4.*(C2(I+1)/C1(I+1))**2*(C1(I+1)-H(I+1))/B(I+1) 

DNDH2=DNDH( 1+1 ) 

120  CONTINUE 

DGA1  =  D2*(-BETA*Q1*Q1 / (A1*A1 )+G2*(DE+(A0+Al )/B(I+l))) 

@  +CN2*Ql*Pl/3.*(-7./Al+4.*DBDH/(B(I+l)*B(I+l)+6./(XMAN(I+l) 

@  *B( 1+1 ) )*DNDH2) ) 

IF(DGAl.EQ.O.O)  DGA1  =  1.0E-5 
IF(KEl(I).LE.O. )G0  TO  125 

R(IR+1)=R(IR+1)-D2/8.*(A0+A1)*(Q1*Q1/(A1*A1) 

@  +QO*QO/(AO*AO))*KE1(I) 

DGQ-DGQ+KE1 ( I )*D2/4. *(A0+A1 )*Q0/ ( AO*AO) 

DGA=DGA+D  2 /8.*KE1(I)*(Q1*Q1/(A1*A1)-Q0*Q0/(A0*A0 ). 

@  *( 1 . +2. *A1/A0) ) 

DGQ1=DGQ1+KE1(I)*D2/4.*(A0+A1)*Q1/(A1*A1) 

DGAi=DGAl+D2/8 . *KE1 ( I)*(Q0*Q0/(A0*A0)-Q1*Q1/(A1*A1 ) 

@  *( 1 . +2. *A0/A1 ) ) 

125  AA(IA)  =  DFQ 
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AA(IA+1 )  -  DFA 
AACIA+2)  -  DFQ1 
AA(IA+3)  -  DFA1 
AA(IA+4)  -  DGQ 
AA(IA+5)  -  DGA 
AACIA+6)  -  DGQ1 
AA(IA+7 )  -  DGA1 
IR  -  IR+2 
IA  =  IA+10 
QO  =  Q1 
AO  -  A1 
PO  =  PI 
130  CONTINUE 
C 

C  ACCOUNT  FOR  TRIBS  AND  FLIP  COLUMNS  IF  NECESSARY 
C 

IF(ITi.EQ.O)GO  TO  71 
DO  72  L=IT1 , IT2 
I  =  JT(L) 

DX  -  DXl(I-l) 

IR  =  2* ( I — 1 ) 

IA  -  5*IR 
BO  «  B( I ) 

AA(IA-6)  =  AA(IA-6)+T( 1 , L)/(DX*B0) 

AA(IA-2)  -  AA(IA-2)+T(3 ,L)/ (DX*BO) 

R(IR)  -  R(IR)+T(2,L)/DX 
R( IR+1 )  *  R(IR+1)+T(4,L)/DX 
DX  «  DX1(I) 

AA(IA+2)  -  AA(IA+2)+T(l,L)/(DX*B0) 

AA(IA+6)  .  AA(IA+6)+T(3,L)/(DX*B0) 

R(IR+2)  -  R(IR+2)+T(2,L)/DX 
R(IR+3 )  -  R(IR+3)+T(4,L)/DX 

72  CONTINUE 

71  FLIPl  -  LIB.LE.3 

FLIP2  =  LIB.EQ. 2.0R.LIB.EQ. 5 
IF  (..NOT.  FLIPl  )G0  TO  73 
SAVE  =  AA( 1 ) 

AA( 1 )  -  AA( 2) 

AA(2)  =  SAVE 
SAVE  =  AA(5) 

AA(5)  =  AA(6) 

AA(6)  =  SAVE 

73  IF( .N0T.FLIP2)  GO  TO  74 
SAVE  =  AA(IND2-2) 

AA(IND2-2)  =  AA(IND2-3) 

AA(;IND2-3)  =  SAVE 

SAVE  =  AA(IND2-6) 

AA(TND2-6)  =  AA(IND2-7) 

AA(IND2-7)  =  SAVE 

74  CONTINUE 

CALL  MAT5 ( AA , C ( 2 ) , R ( 2 ) , IND2 , IND3 - 1 ) 

C 

C  UNDO  FLIPPING  AND  PLACE  DATA  INTO  THE  T-ARRAY 
C 

IF(. NOT. FLIPl )G0  TO  75 


B16 


R(l)  -  R(2) 

R(2)  =  0. 

75  IF( . NOT. FLIP2)G0  TO  76 
R(IND3)  =  R( IND3-1 ) 

R( IND3-1 )  =  0. 

GO  TO  77 

76  IF(ITO.EQ.O)GO  TO  77 
T(1 , ITO)  .  Di*C(IND3-l) 

T(2, ITO)  »  D1*(R(IND3-1)+Qi)+XC(IND1) 

T(3 ,  ITO)  -  D1*C0SP*Q1/Ai*(2. *C(IND3-1)+Q1*B(IND1 )/Al) 

T(4, ITO)  =  Di*COSP*Qi/Al*( 2. *R( IND3-1 )+Ql )+XM( IND1 ) 

77  CONTINUE 
RETURN 
END 

SUBROUTINE  MAT5(AA,C,R,M0,M) 

DIMENSION  AA(MO) ,C(M) ,R(M) 

MUM-1 

C 

C  ELIMINATE  EXTREME  DIAGONALS 
C 

J*=  1 

DO  1  1=1, ML, .2 
D  -  -AA(J+3)/AA(J+7) 

AA(J )  -  AA(J)+AA(J+4)*D 
AA(J+1 )  -  AA(J+1)+AA(J+5)*D 
AA(J+2)  -  AA(J+2)+AA(J+6)*D 
R( I )  -  R(I)  +  R(I+1)*D 
D  =  -AA(J+4)/AA(J) 

AA(J+5 )  -  AA(J+5 )  +  AA(J+1 )*D 
AA(J+6)  -  AA(J+6)  +  AA(J+2)*D 
R(I+1)  -  R(I+1)  +  R( I )*D 
J  =J+10 

1  CONTINUE 
C 

C  ELIMINATE  LOWER  CODIAGONAL 
C 

J  =  6 

DO  2  U2.M1 
D  =  -AA(J )/AA( J-4) 

AA(J+1 )  =  AA(J+l:)  +  AA(J-3  )*D 
R( I )  =  R(I)  +  R( 1-1 )*D 
J  =  J+5 

2  CONTINUE 
C 

C  IN  THE  CASE  OF  A  NON-TRIBUTARY  WITH  A  RATING  CURVE  DOWNSTREAM, 
C  THE  BOTTOM  ROW  OF  THE  MATRIX  NEEDS  WORK 
C 

IF(AA(M0) . EQ. 0)GO  TO  5 
D  *  -AA(M0-l)/AA(M0-3) 

R(M)  =  (R(M)+R(M1)*D)/ (AA(M0)+AA(M0-2)*D) 

C 

C  ELIMINATE  UPPER  CODIAGONAL  AND  NORMALIZE  MATRIX 
C 

5  J  =  5*M1  -  2 
DO  3  11=1, Ml 
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I  -  Ml-II+1 

C( I)  -  C(I+1)*  (-AA(J)/AA(J-1)) 

R(I)  -  (R(I)-AA(J)*R(I+1))/AA(J-1) 

J  =  J-5 

3  CONTINUE 
RETURN 
END 

SUBROUTINE  NEW(R,Q, A, B, H,EL, 13 , Cl ,C2,C3 , C, ITO, ITi , IT2, JT, T,M1 ,M2 , 
@NS,Z) 

DIMENSION  R(M2),A(Ml),Q(Mi),B(Ml),Cl(Ml),C2(Ml), 

@C3 (Ml ) ,  H(M1 ) ,EL(M1 ) , I3(Mi ) ,C(M2) , JT(NS) , T(4,NS) , Z(M1) 

IF(IT0.NE. 0)D  -  T( 1 , ITO) 

DO  60  I«i,Ml 
II  -  2*1 

IF(ITO.EQ.O)GO  TO  1 
R(II-l)  -  R(II-1)-C(II-1)*D 
R(II)  -  R(II)-C(II)*D 
1  Q(  I  )**Q(  I  )+R(  II-l ) 

A(I)-A(I)+R(II) 

HI  -  H(I) 

C 

C  DIAGNOSTIC  CHECK  TO  SEE  IF  DEPTH  GOES  TO  ZERO 

C 

DO  30  K-1,10 
HO -HI 

IF(H0.LE. 0)WRITE(7 , 819) 

819  FORMAT(2X, 'ALERT  -  COMPUTED  DEPTH  LESS  THAN  ZERO') 

IF(HO.LE.O)  WRITE (7 ,818)  Z(I),H0,K 
818  FORMAT(10X, 'NODE  ELEV.-',  F6.2.5X,  'H0-',F5.2,  5X,  'K-',  14) 

IF( I3( I) ) 10,4,5 

4  B0«C1(I)+C2(I)*C3(I)*H0**(C3(I)-1.  ) 
H1=H0-(C1(I)*H0+C2(I)*H0**C3(I)-A(I))/B0 
GO  TO  20 

5  B0«C1(I)+C2(I)*C3(I)*H0**(I3(I)-1) 
H1«H0-(C1(I)*H0+C2(I)*H0**I3(I)-A(I))/B0 
GO  TO  20 

10  B0-2.*C2(I)/C1(I)*SQRT((2.*C1(I)-H0)*H0) 

Hl=HO-(Cl(I)*C2(I)*ACOS(l.-HO/Cl(I))-BO*(Cl(I)-HO)/2. 

@  -A(I))/B0 

20  IF(ABS( (H1-H0)/H0) . LE. 0. 01 )  GO  TO  50 
30  CONTINUE 
WRITE(6,40) 

STOP  7 
50  B(I)=B0 

EL(I)  =  Hl+Z( I ) 

H( I )  =  HI 
60  CONTINUE 
C 

C  PASS  DATA  TO  TRIBS 
C 

IF(IT1.EQ.O)GO  TO  70 
DO  80  L-IT1 , IT2 
K  =  JT(L) 

T(1,L)  “  R( 2*K)/B(K) 

80  CONTINUE 
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70  RETURN 

40  FORMAT('OTHE  STAGE-AREA  EQUATION  HAS  FAILED  TO  CONVERGE  IN' 
@  '  10  ITERATIONS.  RUN  ABORTED .' ) 

END 

SUBROUTINE  BUBBLE ( ITO , ITI , IT2 , JT ,NS) 

DIMENSION  ITO(NS) , ITl(NS) , IT2(NS) , JT(NS) 

DO  1  L-l.NS 

IF( IT2(L) . LE. ITi (L) )G0  TO  1 
LAST  -  IT2(L) 

2  LIMIT  -  LAST-i 
LAST  -  ITI (L) 

Ml  -  LAST 

DO  3  I -Ml, LIMIT 
IF(JT(I).LE.JT(I+1))G0  TO  3 
ITEMP  -  JT(I) 

JT(I)  -  JT(I+1 ) 

JT( 1+1 )  -  ITEMP 
LAST  -  I 
DO  5  M-l.NS 
IF(ITO(M).NE.I)GO  TO  6 
ITO(M)  -  1+1 
GO  TO  5 

6  IF(IT0(M).EQ.I+1)IT0(M)  -  I 

5  CONTINUE 

3  CONTINUE 

IF(LAST.GT.M1)G0  TO  2 
1  CONTINUE 
RETURN 
END 


APPENDIX  C:  LISTING  OF  THE  WATER  QUALITY  CODE  RIV1Q 


Cl 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*************************************************************************** 


*  * 

*  CE-QUAL-RIV1  VAX  VERSION  * 

*  RIVJLQ  CODE  -  WATER  QUALITY  MODEL  * 

*  * 

*  THIS  VERSION  OF  CE-QUAL-RIVIQ  CORRESPONDS  TO  THE  FIRST  * 

*  RELEASE  VERSION  OF  THE  USER  MANUAL  * 

*  THIS  MODEL  WAS  ORIGINALLY  DEVELOPED  BY  OHIO  STATE  U. ,  * 

*  BEDFORD,  SYKES,  AND  LIBICKI.  * 

*  THIS  VERSION  HAS  BEEN  MODIFIED  BY:  * 

*  M.  DORTCH,  T.  SCHNEIDER,  M.  ZIMMERMAN,  * 

*  AND  J.  MARTIN  OF  THE  * 

*  WATER  QUALITY  MODELING  GROUP  * 

*  USAE  WATERWAYS  EXPERIMENT  STATION  * 

*  VICKSBURG,  MISSISSIPPI,  AND  * 

*  D.  GRIFFIN,  JR.  * 

*  LOUISIANA  TECH  UNIVERSITY  * 

*  RUSTON,  LOUISIANA  * 


*************************************************************************** 


PROGRAM  RIV1Q 
COMMON  DJ( 500000) 

COMMON/ABLOCK/  IND1,  IND2,  IND3 ,  IND4,  IND5,  NS 

C  FILE  5  IS  THE  INPUT  DATA  FILE 

OPEN  (UNIT-5,  FILE-  'FILES',  STATUS- ' OLD ' ) 

C  FILE  6  IS  THE  OUTPUT  DATA  FILE 

OPEN  (UNIT-6,  FILE-  'FILE6 ' ,  STATUS- 'NEW' ) 

C  FILE2  CONTAINS  METEOROLOGICAL  DATA 

OPEN  (UNIT-2,  FILE-  'FILE2 ' ,  STATUS- 'OLD ' .READONLY) 

C  BINARY  FILE  8  CONTAINS  HYDRODYNAMIC  DATA  FROM  RIV1H 

READ  (8)  MNODE ,  MTIME,  NS 

IND1  -  MNODE 
IND2  =  MTIME- 1 
IND3  =  IND2*NS 
IND4  =  4*INDl 
IND5  -  5*INDi 


N1 

= 

1 

+ 

NS 

N2 

3 

Ni 

+ 

NS 

N’ 

3 

N2 

+ 

NS 

N4 

3 

N3 

+ 

NS 

N5 

= 

N4 

+ 

NS 

N6 

3 

N5 

+ 

NS 

N7 

= 

N6 

+ 

NS 

N8 

a 

N7 

+ 

NS 

C3 


n  n  o 


N9 

m 

N8 

+ 

NS 

N10 

m 

N9 

+ 

NS 

Nil 

m 

N10 

+ 

NS 

N12 

m 

Nil 

+ 

NS 

N13 

sc 

N12 

+ 

NS 

N14 

at 

N13 

+ 

42*NS 

N15 

m 

N14 

+ 

10*NS 

N16 

m 

Ni5 

+ 

31*NS 

N17 

sc 

N16 

+ 

10*INDl 

N18 

sc 

N17 

+ 

10*INDi 

N19 

m 

N18 

+ 

10*IND1 

N20 

m 

N19 

+ 

10*IND1 

N21 

m 

N20 

+ 

10*INDi 

N22 

sc 

N21 

+ 

10*NS 

N23 

as 

N22 

+ 

INDl 

N24 

sc 

N23 

+ 

INDl 

N25 

m 

N24 

+ 

INDl 

N26 

m 

N25 

+ 

INDl 

N27 

m 

N26 

+ 

INDl 

N28 

as 

N27 

+ 

INDl 

N29 

■c 

N28 

+ 

INDl 

N30 

sc 

N29 

+ 

4*INDl 

N3i 

as 

N30 

+ 

10*IND3 

N32 

N31 

+ 

<S*IND1 

CALL  SUBROUTINE  'MAIN  2' 

CALL  MAIN2(DJ(1),DJ(N1),  DJ(N2),  DJ(N3),  DJ(N4),  DJ(N5),  DJ(N6), 

*  DJ(N7),  DJ (N8) ,  DJ(N9) ,  DJ(NiO) ,DJ(Nil) ,DJ(N12) ,DJ(N13) ,DJ(N14) , 

*  DJ(N15),DJ(N16),DJ(N17),DJ(N18),DJ(N19),DJ(N20),DJ(N21),DJ(N22), 

*  DJ (N23 ) , DJ(N24) ,DJ(N25) ,DJ (N26) , DJ(N27) ,DJ (N28) ,DJ(N30) , DJ (N25) , 

*  DJ(N29) , DJ(N31) , DJ(N32) ) 

STOP 

END 


C 

C 

C 

C 


SUBROUTINE  MAIN2 


SUBROUTINE  M AIN2 ( I D , I DO , ORDER , I DAM , DAMK , NNODE , NODE 1 , IBC , 

*JBC, ITO, ITl , IT2 ,JT, T, SNAME, FARM, C, DC, K, SINK, INIT,CL, DX1 , RMILE,QL, 
*Q , A , B , EL , BOUND , HYDRO 1 , HYDRO  2 , F , D I SP ) 


IMPLICIT  REAL(K) 


COMMON/ABLOCK/ 

INDl, 

IND2, 

IND3 , 

* 

IND4, 

IND5 , 

NS 

COMMON/ STAR/ 

START, 

TEMP 

COMMON/TIME/ 

STB, 

STE, 

DELTAT 

* 

TOFDAY, 

JDYO, 

LII , 

C4 


n  n  o 


* 

LMN, 

CONS 7, 

I, 

* 

J 

COMMON/PERIOD/  LMREAD, 

HSTART, 

ITEM 

COMMON /SUB/ 

JDYO, 

DUC, 

LSMC, 

* 

LATUDC, 

LONTUC, 

* 

TEMO, 

WINDO , 

CLOUDO , 

* 

ATMO , 

DEPTHO , 

WSEO, 

* 

RHOO, 

WETO, 

DRYO, 

* 

HFLUX , 

DTEM , 

FWST, 

* 

HNEFSW, 

OXIDAT, 

* 

KFEDK, 

KMNDK, 

KCOLIDK 

DIMENSION 

DXl(INDl), 

Q( IND5 ) , 

A(IND5) ,B( IND5) , QL( INDl ) , 

*EL( IND5 ) , C( 10 , INDl ) , 

DC( 10 , INDl ) ,  K( 10, INDl),  SINK( 10 , INDl ) , 

*INIT( 10, INDl ) , BOUND ( 10 , 

IND3 ) , HYDRO 1 ( IND4 ) , HYDRO 2 ( IND4 ) , 

*RMILE(IND1 ) , 

,  ID(NS) ,  IDO(NS)  .ORDER(NS-) ,  IDAM(NS)  ,DAMK(NS)  ,NNODE(NS) 

*N0DE1 (NS) , 

IBC(NS) , 

JBC(NS) , ITO(NS) , IT! (NS) , IT2(NS) , JT(NS) , 

*T(42,NS) , 

SNAME( 10 ,NS) , PARM(3 1 ,NS) , 

F( INDl , 6) ,  DISP(INDl), 

*CL( 10 ,NS) , 

CP(10), 

TITLE (20), 

SNAMEO(IO),  MC(10), 

*NUM(10),  NUPD(200 , 10) ,DUMMY( 10) , QWIND(20) 


C 

C  #  CURRENTLY  LIMITED  TO  200  DIFFERENT  UPDATES  BY  NUPD  U 

C  #  AND  10  TRIBUTARIES  BY  NUM  AND  NUPD,  10  VARIABLES  BY  DUMMY  # 

C 

CHARACTER  ITEM0*8,  ITEM1*8,  UNIT0*20, 

*  UNIT1*20 

REAL* 8  BLABEL( 10) , BUNIT( 10)/10* '  (MG/L)  ’"/ , ALABEL( 10)/ •  TEMP  \ 

*  •  CBODNS  • , •  ORGAN  • , •  NH3N  ’ , •  N03N  ’ ,  ’  P04  • , 

*  1  DO  V  MN  V  FE  ’ , ’COLIFORM’/, 

*  AUNIT( 2) / 1 (DEG.  C) * , ’  COL/DI,  ’ /,CLABEL,CUNIT, 

*  FMT1/',  F12. 1 ' / , FMT2/ ' ,  F12.2'/, 

*  FMT(13)/'(1X,I2)F', '8.2  ’,10*'  ',’)  '/ 

CHARACTER*9  ADATE 

INTEGER  ORDER 
REAL  LAMBDA, 

*  NH3NL, 

REAL  LATUDC , 

LOGICAL  QWIND.QWINDO 
LOGICAL  DARK, CP/ 10*. FALSE./ 


SET  DEFAULT  VALUES  FOR  THE  CONSTANTS  AND  SET  UP  ’’NAMELIST"  INPUT 

DATA  TEMP , BK , AK 1 , KOCB 1 , AG , El , E2 , TSI / , AKN , KON , AKNX/ 

*  23.0,-0.49,0.15,0.5,12.81,0.5,1.5,0.0,0.3,0.5,0.0/ 

DATA  KCOLIDK,  KMNDK,  KFEDK ,  OXIDAT/ 

*  1.4,  0.5,  0.5,  1.0/ 


INIT, 

N03NL,  MNL 

LONTUC,  LSMC 


C5 
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DATA  AP04 , ADN , KNCBDN , KOCBDN , ALGAEB , KALGRO , KALGDK/ 

*  0.0,0.1,0.1,0,5,0.0,0.002,0.1/ 

DATA  KOALDK , DAWN , SUNSET , KEXT , START/ 

*  0.5,6.30,20.30, .5, 0.00/, PI/3. 1415°/ 

DATA  CS INK , ATS , ATB , TS INK , I PRINT , I PLOT , ITEM , HNEFSW/ 

*  0.,0.,0.,10.,1,0,0,0./ 

DATA  CBODL , NH3NL , ORGANL , TEMPL , P04L , N03NL , DOL/ 

*  0. ,0. ,0. ,0. ,0. ,0. ,0. / 

DATA  MNL,  FEL,  COLIL/ 

*  0. ,  0. ,  0./ 


NEW  NAMES  ARE  APPENDED  TO  THE  END  OF  NAMELIST 

NAMELIST/CONST/ ADN , AG , AKN , AKNX , AK1 , ALGAEB  ATB , ATS , AP04 , BK , 
*CBODL , CLABEL , CSINK , CUNIT , DAWN , DOL , E 1 , E2 , IPRINT , IPLOT , 

*KALGDK , KALGRO , KEXT , KNCBDN , KOALDK , KOCBCN , KOCB1 , KON , NH3NL , 
*N03NL , ORGANL , P04L , START , SUNSET , TEMP , TEMPL , TSINK , TSI V , KCOLIDK , 
*KMNDK , KFEDK , OXI DAT , MNL , FEL , COLI L . ITEM , HNEFSW , QV INDO 

INITIALIZE  QWIND  TO  FALSE 


DO  I-l.NS 
QWIND  ( I )  * .  FALSE . 

END  DO 

READ (5, 10)  TITLE 

READ ( 8 )  JT,  ITO,  ITl ,  IT2,  ORDER,  NNODE,  NODE1 ,  ID,  JBC 

DO  2  LL  -  1 , NS 
IBC(LL)  -  0 

READ  STREAM  CARD 

READ(5 , 3 )  IDLL,  SNAMEO,  IDAMO,  DAMKO 
3  F0RMAT(I2, 10A4, 12,FiO.  0) 

DO  100  LO  -  1 , NS 
L  =  LO 

IF  (ID(LO).EQ.IDLL)  GO  TO  101 

100  CONTINUE 

WRITE(6 , 102)  IDLL 

102  FORMAT ( '  ID# ',13,'  NOT  FOUND  IN  OUTPUT  FROM  RIV1H. ') 

RETURN 
C 

101  IDO(LL)  »  L 
ir?AM(L)  =  IDAMO 

If  ( IDAMO. GT.O)  DAMKO  *=  DAMK0/0.3048 


C6 


non  non 


DAMK(L)  -  DAMKO 

DO  103  JJJ  -1,10 
103  SNAME(JJJ,L)  -  SNAMEO(JJJ) 

READ  CONSTANT  CARD  (NAMELIST  VARIABLES) 

QWINDO-. FALSE. 

RE AD (5, CONST) 

IF(QWINDO)  QWIND ( LL ) ■ . TRUE . 

IF  (LL.EQ.l)  GO  TO  4 
Ml  -  L 
M2  -  L 
GO  TO  5 

4  Ml  «  1 
M2  -  NS 

5  CONTINUE 


DO  6  M  -  Ml, M2 
C 

C  PACK  SEGMENT-SPECIFIC  PARAMETERS  INTO  THE  PARM  ARRAY 
C  AND  PERFORM  CONVERSIONS 
C 

C  TO  CONVERT  FROM  CFS**-BK  TO  (CU  M/DAY)**-BK 
C  CONVRT  -  4.08732E-04**BK 
CONVRT  -1.0 
PARM(1  ,M)  -  ADN*CONVRT 

PARM (2  ,M)  -  AG*3 . 79726E-05**E1*0. 3048**E2 
PARM (3  ,M)  -  AK1*C0NVRT 
PARM (5  ,M)  -  AKN*CONVRT 
PARM (6  ,M)  -  AKNX*CONVRT 
PARM (7  ,M)  -  ALGAEB*KALGRO 
PARM (8  ,M)  -  ALGAEB*KALGDK 
PARM (9  ,M)  -  AP04*C0NVRT 
PARM(IO.M)  -  AT3*C0NVRT 
PARM(ll.M)  -  ATS*CONVRT 
PARM( 12,M)  -  BK 
PARM( 13 ,M)  -  CSINK 
PARM( 14, M)  -  El 
PARM(15,M)  »  E2 
PARM(16,M)  -  KEXT/0. 3048 
PARM(  ll7  ,M)  -  KNCBDN 
PARM(18,M)  «  KOALDK 
PARM(19,M)  -  KOCBDN 
PARM( 20 ,M)  -  KOCB1 
PARM( 21 ,M)  -  KON 
PARM ( 2 2, M)  -  TEMP 
PARM  (  23:,  M)  -  TSINK 
PARM( 24, M)  =  TSIV/0. 3048 
PARM ( 29, M)  -  KCOLIDK 
PARM ( 30, M)  -  KFEDK 
PARM(3 1 ,M)  -  KMNDK 
C 

C7 


noon  non  on  o  on 


ASSIGN  LATERAL  INFLOW  CONCENTRATIONS  AND  TEST  FOR  PRESENCE 

CL( 1  ,M)  -  TEMPL 
CL(2,M)  -  CBODL 
CL(3,M)  =  OROANL 
CL(4,M)  -  NH3NL 
CL(5,M)  «  N03NL 
CL(6,M)  -  P04L 
CL(7,M)  -  DOL 
CL(8,M)  -  MNL 
CL(9,M)  =  FEL 
CL(10,H)  -  COLIL 

DO  50  N  -  1,10 

IF  (CL(N,M) .GT. O)CP(N)  -  .TRUE. 

50  CONTINUE 


6  CONTINUE 

READ  INITIAL  CONDITIONS  CARDS 

Ml  -  NODEl(L) 

M2  -  Ml  +  NNODE(L)-l 

DO  9  I  -  Ml,  M2 
READ(5 , 7)  (INIT(N,I),N-1,10) 

7  FORMAT(10F8.0) 

READ  IN  DISPERSION  COEFFICIENT  IN  FT2/SEC  FOR  EACH  REACH 

READ(5, 11)  DISP(I) 

DISP(I)  »  DISP(I)*8026. 8 
11  FORMAT(FIO.O) 

9  CONTINUE 

2  CONTINUE 

READ  BOUNDARY  CONDITIONS  ID  CARD 
READ(5,*)  IBC 
NBC  =  0 

DO  38  L  -  1 ,NS 
IF(IBC(L).EQ.O)GO  TO  39 
NBC  =  NBC  +  1 

38  CONTINUE 

39  CONTINUE 

C  READ  BOUNDARY  CONDITIONS  CARDS  AND  TEST  .FOR  PRESENCE 


C 


M2  =  NBC  *  (IND2  +  1) 
BOUNDARY  CONDITION  INPUTS 
DO  201  J-l.NBC 


C8 
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READ(5,81)NUM(J) 

READ(5 , 8i ) (NUPD( I ,  J) , 1-1 ,NUM( J ) ) 
READ(5, 7) (DUMMY(I), 1-1,10) 
ICOUNT-1 
N-l 

DO  201  KK-J,M2,NBC 

I F ( ICOUNT . GT . NUPD ( N , J ) ) THEN 
N-N+l 

READ(5, 7 )(DUMMY(I), 1-1,10) 
END  IF 

IC0UNT-IC0UNT+1 
DO  201  KKK-1,10 

BOUND ( KKK , KK ) -DUMMY ( KKK ) 
201  CONTINUE 

81  FORMAT(10I8) 


DO  8  M  -  1 ,M2 
DO  8  N  ..  1,10 

IF  ( BOUND (N,M) .GT. 0)CP(N)  -  .TRUE. 

8  CONTINUE 

UNSCRAMBLE  REFERENCES 

DO  31  L  -  1 , NS 
DO  31  M  -  1, NS 

IF  (IBC(L).EQ.ID(M))  IBC(L)  =  M 
31  CONTINUE 

CONSTRUCT  CROSS-REFERENCE  BOUNDARY  CONDITIONS  DIRECTORY 

DO  32  L  -  1 ,NBC 
IBCL  -  IBC(L) 

IF  (JBC(IBCL).GE.O)  GO  TO  33 
WRITE  (6,34)  ID(IBCL) 

34  FORMAT ( '  SEGMENT  13,'  MAY  NOT  RECEIVE  INPUT  BOUNDARY', 
*  '  CONDITIONS.') 


RETURN 

33  JBC(IBCL)  -  L 
32  CONTINUE 

READ  IN  DISTANCE  INCREMENTS  AND  LATERAL  INFLOWS  FROM  THE 
HYDRODYNAMIC  MODEL 

READ  (8)  DX1 ,  QL,  RMILE 
CONVERT  ENGLISH  TO  METRIC  UNITS 
DO  47  I  =  1 , IND1 
DX1(I)  -  DX1(I)*0.30A8 
QL(I)  =  QL(I)*8026. 85 
47  CONTINUE 

CALL  IN  THE  CURRENT  DATE  FROM  THE  CPU 

C9 


c 

CALL  DATE(ADATE) 

C 

C  CON'-ERT  TIMES  FROM  HH.MM  TO  DAYS 
C 

START  -  START/ 14. 4-AINT( START) /3 6. 

SUNSET  -  SUNSET/14. 4-AINT(SUNSET)/36. 

DAWN  -  DAWN/14. 4-AINT(DAWN)/36. 

LAMBDA  -  SUNSET-DAWN 
ELAPSE  -  0. 

CLOCK  -  START 
C 

HSTART  -  START  *  24. 

C 

C  WRITE  OUT  INPUT  CONCENTRATIONS 
C 

MBOUND  -  IND2*NBC 
WRITE(6, 10)TITLE 
WRITE(6, 135)  ALABEL 

WRITE(6, 140)  (I, (INIT(N,I),N-1,10),I-1,IND1) 

C  WRITE  OUT  BOUNDARY  CONDITIONS 
DO  301  I-l.NBC 
WRITE(6, 142)IBC(I) 

WRITE(6 , 81 ) (NUPD(J , I) , J=1 ,NUM(I )) 

WRITE(6, 136)  ALABEL 

WRITE (6 , 141 ) ( ( BOUND (J , (NUPD(KK, I)*NBC-NBC+I ) ) , J-l , 10) , KK-1 ,NUM( I ) ) 
301  CONTINUE 

C 

C  THERE  IS  AN  UPPER  LIMIT  OF  ONE  BASE  RUN  AND  FOUR  SENSITIVITY 
C  ANALYSIS  RUNS 
C 

C  SENSITIVITY  COMPUTATION 

C 

DO  520  ICYCLE  -1,5 
WRITE (6, CONST) 

C 

C  ASSIGN  INITIAL  CONDITIONS  (N, I)-INIT(N, I)  AND  TEST  FOR  PRESENCE 
C 

DO  51  N  -  1,10 
DO  51  I  -  1 , IND1 
C(N, I )  =  INIT(N, I) 

IF  (C(N,I).GT.0.0)  CP(N)  =  .TRUE. 

51  CONTINUE 

C  IN  SITU  SOURCES 

IF  (ALGAEB.GT.0.0)  CP(4)  =  .TRUE. 

IF  (ALGAEB.GT.0.0)  CP(6)  «  .TRUE. 

IF  (ALGAEB.GT.0.0)  CP(7)  =  .TRUE. 

C 

C 

MM  =  0 

DO  630  N  =  1,10 

IF ( .NOT. CP(N) )  GO  TO  630 

CIO 


non  o  o  n  o  o  n  o  o  n  o  a  o  a  no  on 


MM  -  MM  +  1 
MC(MM)  -  N 

IF  (N.NE.  2. AND. N.NE.  7)  FMT(MM  +  2)  -  FMT-2 
IF  (N.EQ. 7.0R.H.EQ. 2)  FMT(MM  +  2)  -  FMT1 
BLABEL(MM)  -  ALABEL(N) 

IF  (N  .EQ.  1)  BUNIT(MM)  -  AUNIT(l) 


IF  (N  .EQ.  10)  BUNIT(MM)  -  AUNIT(2) 


630  CONTINUE 
MAX  -  MM 

CONSTRUCT  A  CUBIC  SPLINE  THROUGH  THE  INITIAL  CONCENTRATIONS 
FOR  EACH  SEGMENT 

CALL  SUBROUTINE  'SPLINE' 

DO  55  L  -  1 , NS 
Ml  -  NODEl(L) 

M2  -  NNODE(L) 

CALL  SPLINE ( C ( 1 , M 1 ) , DC ( 1 , M 1 ) , CP,DX1( M 1 ) ,  F ,  M2 ) 

55  CONTINUE 

BEGIN  TIME  MARCH 

TIME  STEP  COMPUTATION 

MTIME  -  IND2  +  1 
3001  FORMAT(3X, 'MTIME-' ,14) 

DO  499  J  -  1,  MTIME 


MBC  -  (J-l )*NBC 

READ  HYDRODYNAMICS,  ALTERNATING  BETWEEN  HYDRO 1  AND  HYDR02 

IF  (MOD(J , 2) )  110,110,111 

110  READ(8)DT, HYDRO 1 

LO  »  IND1*4 
LI  =  0 
GO  TO  112 

111  READ ( 8 ) DT , HYDR02 

LO  =  0 
Li  -  INDl*4 

112  CONTINUE 
C 


DT  =■  DT/86400. 
Ml  =  LI  +  1 
M2  =  LI  +  IND1 


Cll 


oo  noon  o  o  ooo 


DO  113  I  -  Ml, 

Q(I)  -  Q(I)*24i  '■  > 

A(I)  *  A(I)*0. 0929034 
B( I )  =  B(I)*0.3048 
EL(I)  -  EL(I)*0.3048 
113  CONTINUE 

SET  RUNNING  PARAMETERS 

IF  (J.EQ.l)  DT  -  0. 

ELAPSE  «  ELAPSE  +  DT 
CLOCK  -  AMOD( CLOCK  +  DT,1.) 

DARK  -  CLOCK. GE. SUNSET. OR. CLOCK. LE. DAWN 
IF  (DARK)  SINI  -  0. 

IF  (.NOT. DARK)  SINI»SIN(PI*(CLOCK-DAWN)/LAMBDA) 

DELTAT  *  DT  *  24. 

IF  (J  .EQ.  1)  STB  -  HSTART 
STfi  =  STB  +  DELTAT 

IF  (J  .EQ.  1)  THEN 
TOFDAY  =  HSTART 
ELSE 

TOFDAY  =  TOFDAY  +  DELTAT 
END  IF 

"DO  505"  LOOP  CALLS  SUBROUTINE  SEG  AND  PROCESSES  SEGMENTS  IN  A 
DOWNSTREAM  DIRECTION.  THIS  LOOP  IS  EXECUTED  DURING  EACH  TIME  STEP. 


DO  505  LL  =  1,-NS 
LMN  =  LL 

L  =  ORDER (NS-LL  +  1) 

M  =  NODEl(L) 

MO  =  LO  +  M 
Ml  «  H  +  M 

CALL  SEG  WITH  BOUNDARY  CONDITIONS  TAKEN  FROM  BOUND,  IF  APPLICABLE 

,C  JBC(L)  =  0  MEANS  THAT  A  NCECESSARY  BOUNDARY  CONDITION  WAS  NOT  FOUND. 
C  THE  PROGRAM  GOES  TO  STATEMENT  601  AND  ABORTS. 

IF  ( JBC(L) )  600,601,602 

602  JJ  =  JBC(L)  +  MBC 


C 

C  CALL  SUBROUTINE  'SEG' 

C  ...NOTE:  IN  THE  CALLS  BELOW  PARM(1,L)  IS  SENT  TO  SEG.  HOWEVER  PARM 

C  .  IS  RECEIVED  AS  A  1-D  ARRAY  DIMENSIONED  TO  31  LOCATIONS 

C  . .  THIS  CAUSES  PARM(1,L)  TO  ACTUALLY  SEND  THE  FIRST  31  VALUES 


C12 


on  o  non  n  non  non  o  n  on 


.  CORRESPONDING  TO  THE  LEFT  SUBSCRIPT  FOR  EACH  VALUE  OF  L. 

CALL  SEG(DX1(M) ,Q(M0) ,A(M0) ,B(M0) , EL(MO) ,Q(M1) , A(M1) ,B(M1) , 
*EL(Mi) ,QL(M) , 

*C(l,H),DC(l,M),K(i,M), SINK(1,M) , BOUND ( 1,JJ),CP,CL(1,L), 

*PARM( 1 ,  L) , SINI ,NN0DE(L) , ITO(L) , IT1(L) , IT2(L) , JT,T,DT, 
*DISP(M),F,NS,QWIND(L)) 

GO  TO  505 

601  WRITE(6 , 603 )  ID(L) 

603  FORMAT ( '  MISSING  BOUNDARY  CONDITION  FOR  SEGMENT', 13, 

*  RUN  ABORTED. ' ) 


RETURN 

PASS  BOUNDARY  CONDITIONS  THROUGH  CONTROL  STRUCTURES  IN  OTHER  CASES 
600  JJ  -  -JBC(L) 


REAERATION  OVER  DAMS.  THIS  SECTION  HAS  BEEN  MODIFIED 
GREATLY  TO  ACCOMMODATE  EDM  REAERATION. 

IF  (CP(1))  TEMP  -  C( 1 , M) 

IF  (.NOT. CP(1))  TEMP  -  PARM(22,L) 

DOSAVE  -  C(7, JJ) 

IF  (IDAM(L)-l)  507,508,508 


EDM  REAERATION  BELOW 
508  CONTINUE 

CTR  -  DAMK(L)  *  1.022  **  (TEMP-20.) 

DELTAH  -  ABS(  EL(  LI  +  JJ?)  -  EL(M1)) 

R  -  EXP  (-CTR  *  DELTAH) 

DOSAT-14. 652+(-0. 41022+(0. 00799 1-0. 000077774*TEMP)*TEMP)*TEMP 
C( 7 , JJ)  =  DOSAT*(l . -R)  +  D0SAVE*R 

CALL  SUBROUTINE  'SEG' 


507  CALL  SEG  (DX1(M) ,Q(M0) , A(M0) , B(M0) ,EL(M0) ,Q(Mi ) , A(M1 ) , B(M1 ) , 
*EL(M1 ),QL(M),C(1,M) ,DC( 1 ,M) ,K( 1 ,M) , SINK(1 ,M) ,C( 1 , JJ) ,CP,CL( 1 , L) , 
*PARM(  1 ,  L) ,  SINI  ,NNODE(L) ,  ITO(L) ,  IT-1  (L) ,  IT2(L) ,  JT,T,DT, 

*DISP(M) ,F,NS, QWIND(L) ) 

C(7 , JJ)  =  DOSAVE 

505  CONTINUE 

"DO  505"  LOOP  COMPLETE  -  CALLS  TO  SEG  COMPLETE  FOR  THIS  TIME  STEP 
WRITE  STATEMENTS 

I DAY  =  ELAPSE  +  START  +  1. 


C13 


non  o  o 


IEHOUR  -  ELAPSE*24.  +  0.008 

I EMIN  -  (ELAPSE*24.-IEHOUR)*60.  +0.5 

ACLOCK  -  CLOCK*! 4. 4  +  AINT(CLOCK*24  +  0.008)*0.4 


C******************************************************************* 
C  WRITE  OUT  DATA  FOR  PLOTTING  WQ  VARIABLES  TO  BINARY  FILE  19  * 

C  IF  I PLOT-O  PLOTTING  SECTION  IS  SKIPPED.  * 

C******************************************************************* 

IF( IPLOT . EQ . 0 ) GOTO  9088 
IF(J.EQ.i)WRITE(19)  (RMILE(IN) ,  IN-1, INDl) 

IF  (MOD(J-l, IPLOT). EQ.O)  THEN 
WRITE( 19)  ELAPSE 

WRITE(19)  ((C(  NN,  IN)  ,  NN-1,10),  IN-1, INDl) 

END  IF 


C******************************************************************** 


9088  IF  (MOD(J-l , IPRINT) .NE. 0)  GO  TO  533 

SEGMENT  COMPUTATION 

DO  500  L  -  1,  NS 

Ml  -  NODE 1 ( L ) - 1 
M2  -  NMODE(L) 

WRITE (6, 190)  ADATE 
WRITE(6, 200)  TITLE 

WRITE(6, 210)  IEHOUR, IEMIN, ACLOCK, IDAY, ID(L) , (SNAME(JJ,L) , JJ-i , 10) 
WRITE (6, 260)  (BLABEL(MM) ,MM-1 ,MAX) 

WRITE(6, 270)  (BUNIT(MM) ,MM-1 ,MAX) 

WRITE(6,FMT)  (T,RMILE(I  +  Ml ) , (C(MC(MM) , I  +  Ml ) ,MM-1 ,MAX) , 1-1 ,M2) 

IF  (PARM( 7 , L) . LE. 0)  GO  TO  500 
NDEPLO  -  PARM(25,L) 

NDEPLl  »  PARM( 26, L) 

NOPO40  -  PARM( 27 , L) 

N0P041  =  PARM( 28 , L) 

500  CONTINUE 
533  CONTINUE 


STB  -  STE 

IF  (STB  .GE.  24.  )  STB  =  STB- 24. 

JDYO  =  JDYO 

IF  (TOFDAY  .GE.  24.)  JDYO  =  JDYO  +  1 
IF  (TOFDAY  .GE.  24.)  TOFDAY  -  TOFDAY- 24. 
IF  (JDYO  .GT.  365  )  JDYO  =  JDYO-365 

499  CONTINUE 
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C  "499  CONTINUE"  ENDS  MAIN  TIME  MARCH,  RETURN  TO  "DO  499"  UNTIL 
C  ALL  TIME  STEPS  COMPLETE 

READ(5 , 10, END  -  530)  TITLE 
C 

DO  520  LL  -  1 ,NS 

READ  CONSTANT  DATA  FOR  EACH  SEGMENT  (SENSITIVITY  ANALYSIS) 

L  -  IDO(LL) 

QWINDO-. FALSE. 

READ (5, CONST, END  =  530) 

IF(QWINDO)  QWIND ( LL ) * . TRUE . 

IF  (LL.EQ.l)  GO  TO  704 
Ml  -  L 
M2  *  L 
GO  TO  705 

704  Ml  -  1 
M2  -  NS 

705  CONTINUE 

DO  720  M  -  Ml, M2 
C 

C  PACK  SEGMENT-SPECIFIC  PARAMETERS  INTO  THE  PARM  ARRAY 
C  AND  PERFORM  CONVERSIONS 
C 


CONVRT  *.  4. 

08732E-04**BK 

CONVRT 

m 

1.0 

PARM ( 1 , M ) 

= 

ADN*CONVRT 

PARM(2,M) 

* 

AG* 3 . 79726E-05**E1*0 . 3048**E2 

PARM(3,M) 

= 

AK1*C0NVRT 

PARM(5,M) 

m 

AKN*CONVRT 

PARM(6,M) 

m 

AKNX*CONVRT 

PARM(7,M) 

ALGAEB*KALGRO 

PARM(8,M) 

= 

ALGAEB*KALGDK 

PARM ( 9 , M ) 

a 

AP04*C0NVRT 

PARM( 10 ,M) 

xc 

ATB*CONVRT 

PARM(ll.M) 

at 

ATS*CONVRT 

PARM( 1 2 ,M) 

= 

BK 

PARM( 13 ,M) 

= 

CSINK 

PARM( 14,M) 

X 

El 

PARM( 15 ,M) 

= 

E2 

PARM(16,M) 

a 

KEXT/0. 3048 

PARM( 17 ,M) 

= 

KNCBDN 

PARM( 18 ,M) 

= 

KOALDK 

PARM( 19,M) 

B 

KOCBDN 

PARM(20,M) 

= 

KOCB1 

PARM(21,M) 

Z 

KON 

PARM ( 2 2, M) 

= 

TEMP 

PARM( 23 ,M) 

= 

TSINK 

PARM( 24,M) 

= 

TSIV/0. 3048 

PARM( 29 ,M) 

= 

KCOLIDK 
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PARM(30,M)  -  KFEDK 
PARM(3i,M)  -  KMNDK 

ASSIGN  LATERAL  INFLOW  CONCENTRATIONS  AND  TEST  FOR  PRESENCE 

CL( 1 ,M)  -  TEMPL 
CL(2,M)  -  CBODL 
CL(3,M)  -  ORGANL 
CL(4,M)  -  NH3NL 
CL(5,M)  -  N03NL 
CL(6,M)  -  P04L 
CL( 7 ,M)  -  DOL 
CL(8,M)  -  MNL 
CL(9,M)  -  FEL 
CL(10,M)  -  COLIL 

DO  720  N  -  1,10 

IF  (CL(N,M).GT.O)  CP(N)  -  .TRUE. 

720  CONTINUE 


WRITE (6, 511)  ICYCLE, TITLE 

REWIND  8 
C 

REWIND  8 

DO  517  I  -  1,3 
517  READ(8) 

520  CONTINUE 

C  "520  CONTINUE"  ENDS  520  LOOP,  ALL  RUNS  NOW  COMPLETE 
530  CONTINUE 

C  PROGRAM  KICKS  OUT  TO  "530  rONTINUE"  IF  LESS  THAN  4  SENSITIVITY  RUNS 

10  FORMAT(20A4) 

30  FORMAT(10F8.0) 

135  FORMAT( 'OINITIAL  CONDITIONS ',/, 5X, 10(A8 ) ) 

136  FORMAT ( 'OBOUNDARY  CONDITIONS ',/, 5X, 10(A8) ) 

140  FORMAT( IX, 14, 10F8 . 2) 

141  FORMAT ( 5X, 10F8. 2) 

142  FORMAT( 'O' , 'ITERATION  UPDATES  FOR  BOUNDARY  ’,15) 

190  FORMAT ( ' 1 ' , 'DYNAMIC  RIVERINE  WATER  QUALITY  MODEL' , ' , ' , 

*  'CE-QUAL-RIV1 ' ,  '  RIV1Q  ',A9) 

200  FORMAT ( 'O', 20A4) 

210  FORMAT( 'O' , 'ELAPSED  TIME  ',14,'  HOURS  ',12,'  MINUTES ’, 5X, '24- ' , 

*  'HOUR  CLOCK  TIME', F8. 2, '  DAY  ',12, '  SEGMENT ' ,13 , '  ' , 10A4 , 

*  T61 , ' : ' ) 

260  FORMAT ( ' 0 ' , T7 , ' RIVER ' , 7X , 2 ( A8 , 3X) , A8 , 4X , 6 ( A8 , 4X ) , A8 ) 

270  FORMAT ( '  ' ,T8 , 'MILE ' , 7X, 2(A8 , 3X) , A8 , 4X, 6(A8 , 4X) , A8) 

481  FORMAT ( '  NITROGEN  POOL  DEPLETED  FROM  NODE ',13,'  TO  NODE  ,13) 

491  FORMATC  PHOSPHATE  POOL  DEPLETED  FROM  NODE ',  I3_,  '  TO  NODE ',13) 


C16 
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492  FORMAT ( '  NO  ALGAL  PRODUCTION.') 

511  FORMAT( *1 SENSITIVITY  ANALYSIS  NUMBER' , 12, 2X, 20A4) 
C 

RETURN 

END 

C 

C  . . 

C  ..SUBROUTINE  SEG 


SUBROUTINE  SEG( DX1 , QO , AO , BO , ELO , Q , A , B , EL , QL , C , DC , K , SINK , BC , 
*CP ,  CL ,  PARM , SINI ,  MNODE , ITO , IT1 , IT2 , JT , T , DT , DISP  ,.F ,  NS ,  QWIND ) 


IMPLICIT  REAL(K) 
C  COMMON  BLOCKS 


COMMON/ STAR/ 

START, 

TEMP 

- 

COMMON/TIME/ 

STB, 

STE, 

DELTAT, 

ft 

TOFDAY , 

JDYO,  ' 

LIT, 

ft 

LMN, 

C0NS7 , 

I, 

ft 

J 

COMMON/PERIOD/ 

LMREAD , 

HSTART, 

ITEM 

COMMON/ SUB/ 

JDYO , 

DUC, 

LSMC, 

* 

LATUDC , 

LONTUC , 

* 

TEMO, 

WINDO , 

CLOUDO, 

* 

ATMO , 

DEPTHO, 

WSEO , 

* 

RHOO, 

WETO, 

DRYO, 

ft 

HFLUX , 

DTEM, 

FWST, 

ft 

HNEFSW, 

OXIDAT, 

ft 

KFEDK, 

KMNrU, 

KCOLIDK 

REAL 

LATUDC, 

LONTUC, 

.  LSMC 

CHARACTER 

ITEM0*8 , 

ITEM 1*8, 

UNIT0*20 

* 

UNIT1*20 

C 

DIMENSION  DX1 (MNODE) ,Q0 (MNODE ), AO (MNODE) , BO (MNODE) ., ELO (MNODE) , 
*Q ( MNODE ) , A ( MNODE ) , B (MNODE ), EL ( MNODE ), QL ( MNODE ) , C ( 1 0 , MNODE ) , 

*DC( 10, MNODE), K( 10, MNODE), SINK(10, MNODE) ,BC(10),CP( 10), PARM(31), 
*JT(NS) ,T(42 , 1 ) , CL( 10 ) , DISP (MNODE) , F(MNODE ,6) 

LOGICAL  CP,  JUNCT,  QWIND 

REAL  N03NX,  NPOOL 

DATA  THETA/0.55/ 

RTHETA  =  (THETA  -  1.) /THETA 

ASSIGN  PARAMETERS 


ADN 

=  PARM ( 1 ) 

AG 

=  PARM(2) 

AK1 

=  PARM(3 ) 
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AKN 

AKNX  - 
ALG1 

ALGO  - 

AP04 

ATB 

ATS 

BK 

CSINK  - 

El 

E2 

KEXT 
KNCBDN  - 
KOALDK  « 
KOCBDN  - 
KOCBl  - 
KON 
TEQ 
TEMP 

TSINK  - 
TSIV 
KCOLIDK- 
KFEDK  - 
KMNDK  - 


PARM(5) 
PARM(6) 
PARM(7) 
PARM(8) 
PARM(9) 
PARM(IO) 
PARM (11) 
PARM(12) 
PARM (13 ) 
PARM( 14) 
PARM(15) 
PARM( 16) 
PARM( 17 ) 
PARM (18) 
PARM( 19) 
PARM (20) 
EARM(21 ) 
PARM(22) 
PARM(22) 
PARM(23 ) 
PARM (24) 
PARM(29) 
PARM(30) 
PARM(31) 


NEW  HEAT  SUBROUTINE 


L  »  IT2  +  1 
IT  -  MAX0( 1 , IT1 ) 

IF  (DT.EQ.O. )  GO  TO  11 
ULL  =  Q0 ( MNODE ) / AO ( MNODE ) 

CALCULATE  THE  DERIVATIVE  AT  THE  FIRST  NODE 

DO  =■  DT/2.*(Q0(1)/A0(  1 )  +  Q(l)/A(l)) 

DEN  =  1.5*DX1(1)  +  2. *D0 
B1  »  1 . 5*DX1 ( 1 ) / ( D0*DEN ) 

B2  =.  3 . *D0/(DX1 ( 1 )*DEN) 

B3  =  DO/DEN 

DO  63  N  =  1,10 
IF(CP(N) )  THEN 

RELFECT  BOUNDARY  CONDITIONS  AT  NODE  1  WHEN  THERE  IS  NO  INFLOW 
AT  THE  UPSTREAM  BOUNDARY.  (1  CMS  OR  86400  CUBIC  METERS/DAY  IS 
CONSIDERED  NO  FLOW) 

IF(Q( 1).LT. 86400. )  THEN 
BC(N)=C(N, 2) 

END  IF 

DC(N, 1 )  =  B1*(C(N, 1 )-BC(N) )  +  B2*(C(N, 2)~C(N, 1 ) )-B3*DC(N, 2) 

END  IF 
63  CONTINUE 
GO  TO  14 

PLACE  INITIAL  CONCENTRATIONS  INTO  TRIBUTARY  DATA  TRANSFER  ARRAY  (T-ARRY) 
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11  IF  (ITl.EQ.O)  GO  TO  14 

DO  15  LL —  IT1.IT2 

I  -  JT(LL)  -  1 

DO  15  N  -1,10 

IF  (.NOT.  CP(N)  )  GO  TO  15 

T(N  +  22, LL)  -  C(N, I ) 

T(N  +  32, LL)  -  DC(N, I ) 

15  CONTINUE 

INITIALIZE  NUTRIENT  DEPLETION  PARAMETERS 

14  NDEPLl  -  MNODE  +  1 

N0P041  -  MNODE  +  1 

NDEPLO  -  0 

N0P04  -  0 


NODE  COMPUTATION 


"DO  470"  -  NODE  MARCH.  CERTAIN  PROGRAM  BLOCKS  ARE  BYPASSED  FOR 
DT-0  (INITIAL  CONDITIONS)  AND  1=1  (BOUNDARY  CONDITIONS). 

LOOP  MARCHES  THROUGH  NODES  IN  AN  UPSTREAM  DIRECTION  AND 
CYCLES  THRU  EVERY  NODE  IN  THE  SYSTEM  ONCE  DURING  EACH  TIME  STEP. 

DO  470  II  =  1, MNODE 

LI I  =  II 

I  =  MNODE- I I  +  1 

IN  ORDER  TO  ELIMINATE  THE  TURBULENCE  CALCULATION, 

QX  IS  BEING  SET  EQUAL  TO  1.0 

QX  =  ABS(Q(I))**BK 
QX  =  1.0 

UUR  =  Q(I)/A(I) 

UUL  =  U»  R 

IF(I.NE.l)  UUL  =  Q(I-1)/A(I-1) 

CHECK  TO  SEE  IF  WE  HAVE  AN  INITIAL  OR  BOUNDARY  CONDITION 
IF  (DT.EQ.O. .OR.I.EQ.l)  GO  TO  150 

CHECK  TO  SEE  IF  NODE  IS  AT  A  JUNCTION,  IF  NOT  GO  TO  STATEMENT  12 
IF  (L.LE.JT)  GO  TO  12 
IF  (JT(L-l).NE.I)  GO  TO  12 

CALCULATE  DILUTION  RATIOS  FOR  TRIBUTARY  JUNCTIONS 


L  =  L-i 

JUNCT  =  .TRUE. 
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D  -  T(2i ,L)/Q(I  +  1) 

DD  -  T(22,L)*D/UUR 
GO  TO  13 

12  JUNCT  -  .FALSE. 

13  ULL  -  Q0(I-1)/A0(I-1) 

DX  -  DXl(I-l) 

DUDX-  (ULR-ULL) /DX 
DADX-  (A0(I)  -  A0( 1-1 ) )/DX 
DADX2-(A(I)  -  A(I-1))/DX 
DDISP-  (DISP(I)  -  DISP(I-l) )/DX 
DDA1  -  DISP(I)/AO(I)*DADX  +  DDISP 
DDA2  -  DISP(I)/A(I)*DADX2  +  DDISP 
RDDA  -  DDA1/DDA2 

C  "US"  IS  THE  CHARACTERISTIC  VELOCITY  OF  THE  CONSTITUENT  CONCENTRATION 
C  AND  "E"  IS  THE  RESULTING  COURANT  NUMBER.  THESE  PARAMETER  ARE  COMPUTED 
C  ONCE  FOR  EACH  NODE  DURING  EACH  TIME  STEP. 

US  -  (UUR  +  ULR-DDA1-DDA2 ) / ( 2 .  +  DT*DUDX) 

E  -  US*DT/DX 
EC  -  1 . -E 

AS  -  (A( I )  +  A0( 1-1 )*E  +  AO(I)*EC)/2. 

QLA  -  (QL(I )*( 1 .  +  EC)  +  QL(I-1)*E)/(2.*AS) 

DQLA-  ((QL(I)-QL(I-1))/DX-QLA  *  DADX)/AS 
GO  -  1 . -DT*DUDX 

C  "Al"  THRU  "A4"  ARE  THE  COEFFICIENTS  FOR  THE  POLYNOMIAL  ESTIMATOR  OF  THE 
C  CONCENTRATION  AT  NODE  I  AND  TIME  STEP  J 
Al  -  E*E*(3.-2.*E) 

A2  -  1.-A1 
A3  =  E*E*EC*DX 
A4  =  -E*EC*EC*DX 

C  "US"  IS  REDEFINED  AS  CHARACTERISTIC  VELOCITY  OF  THE  SPATIAL  DERIVATIVE 
C  OF  THE  CONSTITUENT  CONCENTRATIN  AND  "ED"  IS  THE  RESULTING  COURANT 

C  NUMBER.  THEY  ARE  COMPUTED  ONCE  FOR  EACH  NODE  DURING  EACH  TIME  STEP. 

US  «  US  -  DDISP 
ED  =  US  *  DT  /  DX 
EDC  =■  1.  -  ED 

C  "B1  THRU  B4"  ARE  THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ESTIMATOR  OF  THE 
C  SPATIAL  DERIVATIVE  AT  NODE  I  AND  TIME  STEP  J. 

B1  =  6.*ED*(-EDC)/DX 
B2  =  -B1 

B3  =  ED*(ED-EDC-EDC) 

B4  =  EDC*(EDC-ED-ED) 

AVERAGE  VALUE  OF  D.O.,  N03 ,  NPOOL,  AND  P04 

DOX  =  C( 7 ,1-1 )*E  +  C( 7 , I )*EC 
IF  (DOX. LT. 0.0)  DOX  =  0.0 
N03NX  =  C(5,I-1)*E  +  C ( 5 , I)*EC 
NPOOL  =  C(4,I-1)*E  +  C(4,I)*EC  +  N03NX 
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P04X  -  C(6,I-1)*E  +  C(6,I)*EC 
GO  TO  140 

VALUE  OF  D.O.,  N03,  NPOOL,  AND  P04  USED  FOR  INITIAL  AND  BOUNDARY  CONDITIONS 

150  DOX  -  C(7 , I) 

N03NX-  C(5 , I) 

NPOOL-  N03NX  +  C(4,I) 

P04X  -  C(6, I) 


COMPUTE  HYDRAULIC  DEPTH  FOR  CURRENT  NODE 
140  H  -  A(I)/B(I) 

STATEMENTS  BELOW  SHUT  DOWN  ALGAL  GROWTH  IN  DARKNESS,  (SINI . LE. 0 . 0) , 
OR  LACK  OF  NUTRIENTS,  (P04X  OR  NPOOL  .LE.  0.0) 

IF  (SINI.LE.O.)  ALGRO  -  0.0 
IF  (PO4X.GT.0.0)  GO  TO  310 
ALGRO  -  0.0 

IF  ( N0P04 1 . GT . MNODE )  N0P041  -  T 
NOPO40  -  I 

310  IF  (NPOOL. GT. 0.0)  GO  TO  315 
ALGRO  -  0.0 

IF  (NDEPL1.GT. MNODE)  NDEPL1  -  I 
NDEPLO  -  I 

TEMP  DEFINED  AS  C(1,I)  FOR  USE  IN  TEMP.  CORRECTION  EQUATIONS  BELOW 

315  IF  ( .NOT. CP( 1) )GO  TO  319 
TEMP  -  C( 1 , I) 

THE  FOLLOWING  THREE  STATEMENTS  ARE  TEMPERATURE  CORRECTIONS  FOR 
VARIOUS  TYPES  OF  REACTIONS 

319  TBIO  =  1 . 047**(TEMP-20 . ) 

TNH3  -  1. 1** (TEMP- 20. ) 

TPHYS  =  1.024**(TEMP-20. ) 

DOSAT  IS  THE  SATURATION  VALUE  OF  D.O.  AS  A  FUNCTION  OF  WATER  TEMP 
DOSAT-14. 652+(-0. 41022+(0. 007991-0. 000077774*TEMP)*TEMP)*TEMP 


******************************** A***** A**** A*************************** 
ALGAE  ARE  LIGHT  LIMITED  ONLY  IN  THIS  VERSION 


IF  (SINI.LE.O.)  GO  TO  330 

C  IF  YOU  WANT  TO  INCLUDE  PHOSPHATE  AND  NITROGEN  LIMITATION  TO 

C  ALGAL  GROWTH,  COMMENT  OUT  THE  ABOVE  STATEMENT  AND  UNCOMMENT 

C  THE  ONE  BELOW 

C 

C  320  IF  (SINI.LE.O. .OR. P04X.LE. 0.0. OR. NPOOL.LE. 0.0)  GO  TO  330 


C*************************************************************  .<********* 
C  LIGHT  LIMITATION  UNDER  EQUILIBRIUM  TEMPERATURE  APPROACH. 
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NOTE:  DAWN,  SUNSET,  HNEFSW  MUST  BE  SEECIFIED  IN  CONSTANT  LIST  FOR 
THIS  CASE. 

************************************************************************ 


IF( ITEM . EQ . 1 ) THEN 

SWALG-  HNEFSW*SINI 

ELSE 

SWALG-  HNEFSW 
END  IF 

ALGAL  GROWTH  RATE  (ALGRO)  DEFINED 
IF(KEXT.GE.O.Ol) 

*ALGRO  =  ALG 1 *SWALG* ( 2 .  / KEXT  +  (B(I)-2. /KEXT)*EXP(-KEXT*H))/A(I) 
IF(KEXT.LT.O.Ol) 

*ALGRO  -  ALG1*SWALG*(H*( 2 . -KEXT*H)  +  B(I)*EXP(-KEXT*H))/A(I) 

330  IF  (NEOOL  .GT.  0.)  E  -  N03NX/NP00L 

WHEN  D.O.  DROPS  TO  ZERO  ALGAL  DECAY,  AEROBIC  HYDROLYSIS  OF  ORG-N, 

AND  NITRIFICATION  CEASE.  THEREFORE  ALGADK,  Kl,  AND  KN  SET  TO  ZERO. 

IF  (DOX.L.E.  l.E-06)  GO  TO  380 

ALGADK  -  ALGO  *(B(I)  +  H  +  H)/((l.  .+  KOALDK/DOX)*A(I)) 

Kl  -  AK1  *QX  *TB 10/(1.  +  KOCB1/DOX) 

KN  -  AKN  *QX  *TNH3/(T.  +  KON/DOX) 

KMNX  -  KMNDK 

KFEX  »  KFEDK 

GO  TO  390 
380  ALGADK  -  0.0 

Kl  -  0.0 

KN  »  0.0 

390  KDN  =  ADN*QX*TB I 0*K0CBDN / ( DOX  +  KOCBDN ) 

*  *N03NX/(N03NX  +  KNCBDN) 

KNX  a  AKNX*QX*TPH Y S 

WHEN  THE  D.O.,  (DOX),  LEVEL  DROPS  BELOW  A  SPECIFIED  VALUE  (OXIDAT) 
IRON  AND  MANGANESE  OXIDATION  STOPS,  KMNX  AND  KFEX  SET  TO  0.0. 

IF  (DOX  .LT.  OXIDAT)  KMNX  -  0. 

IF  (DOX  .LT.  OXIDAT)  KFEX  =  0. 

THIS  CODE  SEGMENT  (DOWN  TO  391)  COMPUTES  REAERATION  COEFFICIENTS 

K2  =  AG*ABS(UUR)**E1/H**E2*TPHYS 

IF  (I.EQ.l  .OR.  DT.EQ.O.)  GO  TO  391 

C  COMPUTE  TSIVOGLOU  RT DERATION  COEFFICIENT,  K2,  IF  TSIV  .GT.  0. 

C  OTHERWISE  USE  EXPONENTIAL  REAERATIOIN  COEFFICIENT,  K2,  COMPUTED  ABOVE 

IF  (TSIV.GT.O.)  THEN 
DELTAH  =  EL(I)  -  EL(I-l) 

K2  =  TSIV  *  TPHYS  *  ABS(DELTAH)*0. 5*  ABS(  UUR  +  UUL)/DX 
END  IF 
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391  CONTINUE 


C  END  REAERATION  ROUTINES 

KP04DK  -  AP04*QX*TPHYS 
C 

C  USE  EQUILIBRIUM  TEMPERATURE  APPROACH  IF  ITEM-1  (IN  CONSTANT  LIST) 

C  CONVERSION  FACTOR  CHANGES  UNITS  FROM  W/M2-C  TO  PER  DAY  (0.02064- 
C  86400/(4184*1000) 

C 

I F ( ITEM . EQ . 1 ) THEN 
KTS-ATS*0 . 02064/H 
KTB-ATB*TPHYS*QX 
END  IF 

C 

C  "DO  460"  LOOP  COMPUTES  DECAY  CONSTANTS  AS  WELL  AS  KINETIC  CONSTANTS 
C  FOR  SOURCES  OR  SINKS  FOR  A  GIVEN  NODE.  CONSTITUENT  CONCENTRATIONS 
C  CORRECTED  FOR  DECAY,  SOURCES  OR  SINKS  ARE  THEN  COMPUTED 

DO  460  N  =  1,10 

IF  ( . NOT. CP (N) )  GO  TO  460 

IF  (DT.EQ.O. .OR.I.EQ.l)  GO  TO  450 

KS  -  K(N, 1-1 )*E  +  K(N, I)*EC 
DK  -  (K(N,I)-K(N,I-i))/DX 
SINKS  -  SINK(N, 1-1 )*E  +  SINK(N,I)*EC 
DSINK  -  (SINK(N, I)-SINK(N, 1-1 ) )/DX 

450  GO  TO  (1, 2, 3, 4, 5, 6, 7, 8, 9, 10), N 
C 

C  TEMPERATURE 
C 

C  DECAY  RATE  AND  SOURCE/SINK  TERM  FOR  TEMPERATURE,  K(1,I), 

C  INITIALLY  SET  TO  ZERO 

1  K( 1 , I)  =  0. 

SINK(1 , I)  «  0. 

C 

C  EQUILIBRIUM  TEMPERATURE  SIMULATION  USED  IF  ITEM-1 
C  FULL  HEAT  BALANCE  SIMULATION  USED  IF  ITEM-0 
C  IF  ITEM  NOT  EQUAL  TO  0  OR  1  HEAT  EXCHANGE  DOES  NOT  OCCUR 

IF  (  ITEM.NE. 1  .AND.  ITEM.NE. 0  )  GO  TO  480 

C  EQUILIBRIUM  APPROACH  FOR  COMPUTING  TEMPERATURE  SINK 

IF ( ITEM . EQ . T )THEN 

K(1 , I)  =  KTS  +  KTB 
SINK (:!,!}-  KTS  *  TEQ  +  KTB  *  TSINK 
GO  TO  480 
END  IF 
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C 

DEPTHO  =  H  *  3.281 

C  FULL  HEAT  BALANCE  APPROACH  (ITEM-0;  DEFAULT  VALUE)  REQUIRES  CALLING 
C  SUBROUTINES  HEAT  AND  HTFLUX 

IFCITEM.EQ.O. )THEN 
CALL  HEAT 
C 

IF  (J  .NE.  1)  THEN 
K(1,I)  =  KTB 

SINK( 1,1)  =  DTEM/DT  +  KTB  *  TSINK 
END  IF 
GO  TO  480 
END  IF 

C  END  OF  TEMPERATURE  COMPUTATION  SEGMENT 
C 

C  CBOD 

C 

2  K(2,I)  =  K1  +  KDN 
SINK( 2,1)  =0.0 
GO  TO  480 

ORGANIC  NITROGEN 

3  K(3 , 1 )  =  K1  +  KDN 
SINK(3 , I)  =  0.0 
CP(4)  =  .TRUE. 

GO  TO  480 

C 

C  AMMONIA  NITROGEN  -  K(4, I)  REPRESENTS  NH3  LOSS  DUE  TO  ADSORPTION 
C  ONTO  SEDIMENT  AND  NITRIFICATION.  SINK(4,I)  REPRESENTS  NET  NH3 

C  LOSS  BY  ALGAL  UPTAKE  AND  PRODUCTION  BY  ALGAL  DECAY  AS  WELL  AS 

C  NH3  PRODUCTION  BY  HYDROLYSIS  OF  ORG-N. 

C 

4  K(4, I)  =  KN  +  KNX 

SINK(4, I)  =  (K1  +  KDN)*C(3 , I)-. 075*( ( 1 . -P)*ALGRO-ALGADK) 

IF(AKN. GT. 0 . 0)CP(5)  =  .TRUE. 

GO  TO  480 
C 

C  NITRATE  NITROGEN  -  SINK (5 , I)  REPRESENTS  N03  FORMATION  BY 
C  NITRIFICATION  AND  N03  LOSS  BY  DENITRIFICATION  AND  PLANT  UPTAKE 
C 

5  K(5, I)  =  0.0 

SINK(5 , I)  =  KN*C(4,I)-.075*P*ALGR0-.35*KDN*C(2,I) 

GO  TO  480 
C 

C  PHOSPHATE  -  K(6,I)  REPRESENTS  THE  ADSORPTION  (LOSS)  OF  P 

C  ONTO  SEDIMENTS.  SINK(6,I)  REPRESENTS  UPTAKE  OF  P  BY  ALGAL 

C  GROWTH  AND  RELEASE  OF  P  BY  ALGAL  DECAY. 

C 

6  K(6 , I )  =  KP04DK 

SINK(6, I)  =  0. 010*(ALGADK-ALGR0) 

GO  TO  480 
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C 

C  DISSOLVED  OXYGEN  (DOX)  -  K(7,I)  REPRESENTS  LOSS  OF  DOX  TO  THE 
C  ATMOSPHERE  BY  REAERATION.  SINK(7,I)  REPRESENTS  GAIN  OF  DOX  BY 
C  PHOTOSYNTHESIS  AND  REAERATION;  LOSS  OF  DOX  BY  CBOD  EXERTION, 

C  NITRIFICATION,  PLANT  RESPIRATION,  AND  OXIDATION  OF  FE  AND  MN 
C 

7  K( 7 , I)  -  K2 

SINK (7, 1)  -  ( . 35*P  +  1.59) *ALGRO- 1 . 5 9*ALGADK  +  K2*DOSAT 
*-4. 57*KN*C(4, I)-Kl*C(2, I)-0. 15*KMNX*C(8, I)-0. 14*KFEX*C(9, I) 

GO  TO  480 

DISSOLVED  MANGANESE  -  K(8,I)  REPRESENTS  MN  LOSS  BY  OXIDATION. 

8  IF  ( C ( 7 , I)  .GT.  OXIDAT)  THEN 
K(8, I)  =  KMNDK 

ELSE 

K(8, I)  =  0.0 
END  IF 

SINK(8, 1)  =  0.0 
GO  TO  480 

DISSOLVED  IRON  -  K(9,I)  REPRESENTS  FE  LOSS  BY  OXIDATION 

9  IF  (C(7,I)  .GT.  OXIDAT)  THEN 
K(9, I)  -  KFEDK 

ELSE 

K(9, I)  -  0.0 
END  IF 

SINK(9, I)  -  0.0 
GO  TO  480 

COLIFORM  BACTERIA  -  K(10,I)  REPRESENTS  LOSS  OF  FECAL  COLIFORMS 

10  K(10,I)  .  KCOLIDK  *  TBIO 

SINK(10, I)  =0.0 
GO  TO  480 

STATEMENTS  WHICH  HANDLE  ALL  PARAMETERS  IN  THE  SAME  WAY 

480  IF  (DT.EQ.O. .OR.I.EQ. 1  )  GO  TO  460 
KS  =  (K(N, I)  +  KS)/2. 

SINKS  =  (SINK(N,I)  +  SINKS)/2 . 

C 

C  FINAL  CALCULATION  OF  THE  CONSTITUENT  CONCENTRATION  AND  SPATIAL 
C  DERIVATIVE  FOR  ALL  NODES.  STATEMENT  BELOW  CHECKS  TO  SEE  IF 

C  NODE  IS  A  JUNCITON  POINT.  IF  SO  GO  TO  38. 

C 

IF  (JUNCT)  GO  TO  38 

CO  =  A1*C(N, 1-1 )  +  A2*C(N, I)  +  A3*DC(N, I-i )  +  A4*DC(N,I) 

CCL  =  CL(N)-C0 

IF(QLA.LE.O. )  CCL  =0. 

DC(N,  I)  =  (B1*C(N,  1-1 )  +  B2*C(N,I)  +  B3*DC(N,I-i)  +  B4*DC(N,I:)) 

*  *(G0-DT*(KS  +  QLA) )  +  DT*(DSINK-CO*DK  +  CCL*DQLA) 
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C  C(N, I)  IS  THE  CONCENTRATION  OF  CONSTITUENT  N  AT  (NON-JUNCTION)  NODE  I, 

C  TIME  INCREMENT  J,  CORRECTED  FOR  SOURCES,  SINKS  AND  LATERAL  INFLOW 

C(N, I )  =  C0*( 1-DT*KS)  +  (SINKS  +  CCL*QLA)*DT 

GO  TO  465 
C 

C  C(N, I ) ,  BELOW,  IS  THE  CONCENTRATION  OF  CONSTITUENT  N  AT  (NON-JUNCTION) 

C  NODE  I,  TIME  INCREMENT  J,  CORRECTED  FC*  SOURCES,  SINKS  AND  LATERAL  INFLOW 
C 

38  COO  =  T(N  +  22, L) 

DCOO  =  T(N  +  32, L) 

CO  =  A1*C(N, 1-1 )  +  A2*C00  +  A3*DC(N,I-1)  +  A4*DC00 
CCL  =  CL(N)-CO 

IF(QLA. LE. 0. )  CCL  =  0. 

DCOO  =  (Bl*C(N, 1-1 )  +  B2*C00  +  B3*DC(N,I-1)  +  B4*DC00) 

*  *(G0-DT*(KS  +  QLA) )  +  DT*(USINK-CO*DK  +  CCL*DQLA) 

COO  =  C0*(1-DT*KS)  +  (SINKS  +  CCL*QLA)*DT 

T(N  +  22, L)  =  COO 

T(N  +  32, L)  -  DCOO 

C(N, I )  =  C00*( 1 . -D)  +  T(N,L)*D 

DC(N, I )  =  DC00*(1.-D)  +  T(N  +  10,L)*DD 

465  CONTINUE 

C  A********************************************************************** 


C  CALL  TO  WIND-DRIVEN  REAERATION  SUBROUTINE  REAERK  * 
C  * 
C  IF  ITRM=1,  TAIR=DRY0  AND  WIN«WIND0*0 . 447  WITH  THE  ACTUAL  VALUES  * 
C  PUT  IN  FOR  DRYO  AND  WINDO  BY  USER.  * 
C  IF  ITEM=0 ,  TAIR=DRY0  AND  WIN=WIND0*0 . 447 ,  VALUE  FOR  TAIR  AND  * 
C  WIN  ARE  OBTAINED  FROM  MET  DATA  DURING  HEAT  EXCHANGE  CALCULATION  * 


C************************************************************************ 
IF  (N.EQ.7  .AND.  QWIND)  THEN 
TAIRr»DRYO 
WIN=WIND0*0 . 447 

IF(ITEM. EQ.l. AND. TAIR. EQ.O. AND. WIN. EQ.0)THEN 
WRITE(6,9089) 

9089  FORMATC  USER  MUST  PROVIDE  A  CONSTANT  VALUE  FOR  DRY  BULB  TEMP',/, 

*  '  AND  WIND  SPEED  (TAIR  AND  WIN)  SINCE  ITEM=1  AND  QWIND=TRUE. ' , / , 

*  '  DO  THIS  BY  REPLACING  DRYO  AND  WINDO  WITH  NUMERICAL  VALUES',/, 

*  '  IN  THE  STATEMENTS  DIRECTLY  ABOVE  LINE  9089  IN  THE  SOURCE',/, 

*  '  CODE.  IF  NOT  DONE  DRYO  AND  WINDO  ARE  SET  TO  0  AND  THIS  ',/, 

*  '  ERROR  RESULTS. ' ) 

STOP 
END  IF 

CALL  REAERK(WIN. TAIR, TEMP, RK) 

DTS  =  DT  *  86400. 

RK  =  RK/86400 . 

C(7 , I)  =  C( 7 , I )  +  RK  *  (DOSAT-C( 7 , I) )  *  DTS  /  H 
END  IF 

***************************************************************** 
NEGATIVE  HEDGE  FOR  ALL  WQ  CONSTITUENTS  EXCEPT  TEMPERATURE. 
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THAT  IS,  NO  CONCENTRATIONS  ARE  ALLOWED  TO  GO  BELOW  ZERO. 

************************ A**************************************** 

IF  (N.GT.l)  THEN 

IF  (C(N, I) . LT. 0. )  C(N, I)  -  0. 

END  IF 
460  CONTINUE 

.  END  "DO  460"  CONCENTRATION  CONSTITUENT  LOOP  . 

SHIFT  POSITIONS 
ULR-ULL 

470  CONTINUE 

.  END  OF  "DO  470"  NODE  COMPUTATION  LOOP  . 

IF  (IT0  .LE.  0  )  GO  TO  560 

VALUES  AT  THE  DOWNSTREAM  TERMINUS  PLACED  IN  THE  T-ARRAY 

T(21 , IT0)  =  Q(MNODE) 

T(22, ITO)  -  Q(MNODE) /A(MNODE) 

DO  16  N  -  1,10 

IF  ( . NOT. CP (N) )  GO  TO  16 

T(N , ITO)  -  C(N,MNODE) 

T(N  +  10, ITO)  -  DC(N.MNODE) 

16  CONTINUE 

560  PARM( 25 )  -  NDEPLO 
PARM(26)  •=  NDEPLi 
FARM (27)  =  NOPO40 
PARM( 28)  «  N0P041 

ASSIGN  BOUNDARY  CONDITIONS  TO  THE  FIRST  NODE 

IF  (DT.LE.O.)  RETURN 
DO  403  N  *  1,10 
IF  (CP(N) )  C(N, 1 )  =  BC(N) 

403  CONTINUE 
C 

C  AT  THIS  POINT,  THE  COMPUTED  CONSTITUENT  CONCENTRATIONS  ARE  CORRECTED 
C  FOR  DISPERSION  USING  AN  IMPLICIT  NUMERICAL  SCHEME 
C 

F( 1 , 2)  =  1. 

F(1 ,3)  =  0. 

F(MNODE, 1 )  =  0. 

F(MNODE, 2)  =  1. 

MN1  =  MNODE  -  1 
DO  500  I  =  2 , MN 1 

FO  =  2. *DISP( I )*THETA*DT/(DX1 ( 1-1 )  +  DX1(I)) 

F ( 1 , 1 )  -  -FO/DXKl-l) 

F( 1 , 3 )  =  -FO/DXl (I) 

F( I , 2)  =  1.  -  F ( I , 1 )  -  F(I,3) 

500  CONTINUE 
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C  NOW  THE  RIGHT-HAND  SIDE  FOR  EACH  MODELED  CONSTITUENT 
C 

DO  510  N  ■  1,10 
IF(.NOT.CP(N))GO  TO  510 
F(l,4)  -  C(N,1) 

F(MNODE,4)  -  C(N, MNODE) 

DO  520  I  -  2,MN1 

F(I , 4)  -  RTHETA*(F( I , 1 )*C(N, 1-1 )  +  F(I , 3 )*C(N, 1+1 )  + 

*  (F(I,2)-1.)*C(N,I))  +  C(N, I) 

520  CONTINUE 

CALL  TRIDAG(F( 1 ,l),F(l,2),F(i,3),F(l,4),F(l, 5) ,F( 1 ,  6) , 

*  C , MNODE , N ) 

F( 1 , 4)  »  DC(N, 1 ) 

F(MNODE, 4)  -  DC(N, MNODE) 

DO  540  I  -  2,MN1 

F( I , 4)  -  RTHETA*(F(I , 1 )*DC(N, I-i)  +  F(I,3)*DC(N, 1+1)  + 

*  (F(I,2)-i. )*DC(N, I) )  +  DC(N, I) 

540  CONTINUE 

CALL  TRIDAG(F(1 , 1 ) , F( 1 , 2) , F( 1 , 3 ) ,F(1 ,4) ,F( 1 , 5) ,F( 1 , 6) , 

*  DC, MNODE, N) 

510  CONTINUE 

C 

C  DISPERSION  FOR  TRIBUTARY  JUNCTIONS 
C 

IF  (IT1.LE.0)  RETURN 
DO  550  LL  -  IT1.IT2 
I  -  JT(LL) 

FO  -  2 . *DISP( J )*DT/ (DX1 ( 1-1 )  +  DX1(I)) 

FI  =  FO/DXl ( 1-1 ) 

F3  =  FO/DXl ( I ) 

F2  =  1.  +  FI  +  F3 

DO  550  N-1,10 

IF  ( . NOT. CP (N) )  GO  TO  550 

T(N  +  22, LL)  .  (T(N  +  22, LL)  +  Fl*C(N,I-l)  +  F3*C(N, 1+1 ) )/F2 
T(N  +  32, LL)  -  (T(N  +  32, LL)  +  F1*DC(N,I-1)  +  F3*DC(N, 1+1 ) )/F2 
550  CONTINUE 

RETURN 

END 

C 

C  . .  . . . 

C  ..  SUBROUTINE  SPLINE 
C  . . . . . 


C  SPLINE:  A  PROGRAM  TO  FIT  A  CUBIC  SPLINE  TO  THE  DATA,  WITH 
C  CONTINUOUS  ZEROETH,  FIRST  AND  SECOND  DERIVATIVES,  THE  OUTPUT 
C  IS  THE  VALUE  OF  DERIVATIVE  AT  EACH  POINT. 

SUBROUTINE  SPLINE  (C,DC,CP,DX,F,MNODE) 
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DIMENSION  C ( 10 , MNODE ) , DC ( 1 0 , MNODE ) , CP ( 1 0 ) , DX(MNODE ) , F (MNODE , 6 ) 


LOGICAL 

CP 

F(1.D 

-  0. 

F( 1 , 2) 

-  1. 

F(1 ,3) 

-  0.5 

F( MNODE 

,1)  -  0.5 

F( MNODE 

,2)  -  1. 

F(MNODE 

,3)  -  0. 

M2  -  MNODE- 1 

DO  2  I 

-  2, M2 

F(I, 1) 

-  DX(I) 

F(I , 2) 

-  2.*(DX(I 

F(I,3) 

-  DX(I-l) 

2  CONTINUE 

DO  4  N  -  1,10 

IF  ( . NOT. CP (N) )  GO  TO  4 

F( 1 , 4)  -  1.5/DX(1)*(C(N,2)-C(N, 1)) 

F(MNODE, 4)  -  1 . 5/DX(M2)*(C(N,MNODE)-C(N,M2) ) 

DO  3  I  -  2,  M2 

F(I ,4)  -  3 . *(DX(I-1 )/DX(I )*(C(N, I  +  l)-C(N.I)) 
*  +  DX(  IJ)  /DX(  1-1  )*(C(N,  I  )-C(N,  1-1 ) ) ) 

3  CONTINUE 


CALL  SUBROUTINE  TRIDAG 

CALL  TRIDAG  (F( 1 , D ,F( 1 , 2) ,F( 1 , 3 ) ,F( 1 , 4) ,F( 1 , 5) ,F( 1 , 6) , 
*  DC , MNODE , N ) 

4  CONTINUE 

RETURN 

END 


SUBROUTINE  TRIDAG 


SUBROUTINE  TRIDAG  ( A , B , C , D , BETA , GAMMA , V , MA , N ) 

DIMENSION  A(M1 );,  B(M1 )  ,C(M1 )  ,  D(M1 )  ,  BETA(Mi  )  , 

*  GAMMA(Mli)  , V(  10,M1 ) 

BETA(l)  -  B(l) 

GAMMA( 1 )=  D(1)/BETA(1) 

DO  1  I  ■>  2,  Ml 

BETA(I)  =  B(I)-A(D*C(I-1)/BETA(I-1) 

1  GAMMA(I)=  (D(I)-A(T)*GAMMA(I-1))/BETA(I) 

V(N,M1)  =  GAMMA (Ml) 

M2  -  Ml-1 
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DO  2  K  -  1  ,M2 
I  -  Ml-K 

2  V(N, I )  -  GAMMA(I)-C(I)*V(N,I  +  1)/BETA(I) 

RETURN 

END 

C 

C  . . . 

C  ..  SUBROUTINE  HEAT 

C  .  .  . . . . 

c 

C  THIS  SUBROUTINE  IS  ADAPTED  FROM  ''QUAL-II"  STREAM 
C  QUALITY  MODEL,  WRITTEN  BY  LARRY  A.  ROESNER,  PAUL 
C  R.  GIGUERE  AND  DONALD  E.  EVENSON  IN  WATER  RESOURCES 
C  ENGINEERS,  INC.  710  SOUTH  BROADWAY,  WALNUT  CREEK, 

C  CALIFORNIA  94596 

C 


SUBROUTINE  HEAT 
C  COMMON  BLOCKS 

C  ************************************************************************* 
C  *  METEOROLOGICAL  INPUT  CURRENTLY  LIMITED  TO  300  UPDATES  AND  5  VARIABLES  * 
C  ************************************************************************* 
DIMENSION  NUP(300) ,  DUMMY(300,5) 


COMMON/ STAR/ 

START, 

TEMP 

COMMON/TIME/ 

STB, 

STE, 

DELTAT, 

* 

TOFDAY , 

JDYO, 

LI  I , 

* 

LMN, 

CONS 7 , 

I, 

* 

J 

COMMON/PERIOD/  LMREAD , 

HSTART , 

ITEM 

COMMON/SUB/ 

JDYO , 

DUC, 

LSMC, 

* 

LATUDC , 

LONTUC , 

* 

TEMO, 

WINDO, 

CLOUDO , 

* 

ATMO , 

DEPTHO , 

WSEO, 

* 

RHOO, 

WETO, 

DRYO, 

* 

HFLUX, 

DTEM, 

FWST, 

* 

HNEFSW, 

OX I DAT, 

* 

KFEDK, 

KMNDK , 

KCOLIDK 

REAL 

LATUDC , 

LONTUC , 

LSMC 

CHARACTER 

ITEM0*8 , 

ITEM1*8 , 

UNIT0*20 

* 

UNIT1*20 

DEFAULT  VALUE 

DATA 

DEPTHO/5 .0/ , 

RHOO/i.O/ 

IRFLAG 

0,  READ  ONLY  ONCE 

1 ,  NO  LONGER  READ  DATA 

JDYO 

THE  DAY  OF  YEAR  TO  START  SIMULATION 

LMN 

COUNTER  FOR  SEGMENT  NUMBER 

LII 

COUNTER  FOR  NODE  NUMBER 
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C  LATUDC  :  LOCAL  LATITUDE,  DEGRFE 

C  LONTUC  :  LOCAL  LONGITUDE,  DEGREE 

C  LSMC  :  LONGITUDE  OF  STANDARD  MERIDIAN,  DEGREE 

C  DUC  :  DUST  ATTENUATION  COEFFICIENT 

C  NUM  :  NUMBER  OF  METEOROLOGICAL  UPDATES 

C  NUP(I)  :  LARGEST  ITERATION  AT  WHICH  DATA  I  APPLIES 
C  DUMMY  :  ARRAY  CONTAINING  ALL  METEOROLOGICAL  UPDATES 
C  CLOUDO  :  CLOUD  COVER  (FRACTION) 

C  WINDO  :  WIND  SPEED  (MILE/HR) 

C  DRYO  :  DRY  BULB  TEMPERATURE  (F) 

C  WETO  :  WET  BULB  TEMPERATURE  (F) 

C  ATMO  :  ATMOSPHERIC  PRESSURE  (INCH/HG) 

C 

C  THE  FOLLOWING  DATA  ARE  ONLY  READ  ONCE 
C  IRFLAG  WILL  EQUAL  0  UNLESS  SPECIFIED  OTHERWISE 
C  AS  IS  DONE  ELSEWHERE 
C 

IF  (IRFLAG  .EQ.  0)  THEN 
WRITE(16, 91)  IRFLAG 


READ(02, 

94) 

JDYO 

READ(02 , 

95) 

DUC 

READ(02, 

95) 

LATUDC,  LONTUC,  LSMC 

READ(02, 96)NUM 

WRITE ( 1 6 , 90 )  JDYO , DUC , LATUDC , LONTUC , LSMC , NUM 
READ(02 , 96) (NUE(II) , II-l , NUM) 

DO  II-l, NUM 

READ(02 ,97) (DUMMY(II , III), 111-1,5) 

WRITE(16,89)  II,NUP(II) 

WRITE ( 1 6 , 88 )  DUMMY (11,1), DUMMY ( 11,2), DUMMY (11,3), 

*  DUMMY (11,4), DUMMY (11,5) 

END  DO 
IRFLAG  =  1 

CLOUDO  -  DUMMY (1,1) 

WINDO  -  DUMMY (1,2) 

DRYO  =  DUMMY (1,3) 

WETO  =  DUMMY( 1 , 4) 

ATMO-  DUMMY (1,5) 

C 

END  IF 

C 

C 

C  READ  LOCAL  CLIMATOLOGICAL  DATA 
C 

IF  (J  .GT.  NUP( IRFLAG) . AND. LMN. EQ. 1  AND. LI I . EQ. 1 )THEN 
IRFLAG  -  IRFLAG  +  1 
CLOUDO  -  DUMMY ( IRFLAG, 1) 

WINDO  -  DUMMY (IRFLAG, 2) 

DRYO  =  DUMMY ( IRFLAG, 3) 

WETO  =  DUMMY ( IRFLAG, 4) 

ATMO -  DUMMY ( IRFLAG , 5 ) 

END  IF 
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FWST  -  TEMP 


91  F0RMAT(/1X, 'ECHO  OF  MET  DATA' ,  3X, 'IRFLAG- ' , 13 ) 

90  FORMAT ( /IX,  'JDYO- ' ,  13 ,  IX,  'DUC-' ,F5. 2, IX,  'LATUDC- ' ,F6. 2, IX, 

*  1 LONTUC- ' , F6 . 2 , IX , 'LSMC-' ,F6. 2, IX, 'HUM- ',13) 

89  FORMAT( IX, 'BOUNDARY  CHANGE ' , IX, 13 , 3X, 'AT  TIME  STEP', IX, 13) 
88  FORMAT( 1X,5(F5 . 2, 2X) ,_/) 


CALL  TO  SUBROUTINE  HEATFLUX 

CALL  HEATFLUX  (JDYO, 

*  LATUDC , 

*  TEMP, 

*  ATMO, 

*  RHOO , 

*  HFLUX  ) 

C 

C  CONVERSION  HEAT  FLUX  FROM  'BTU'  TO  KCAL,  THEN  TO  DEGREE  (F), 

C  THEN  TO  (C).  THUS,  DTEM  IS  IN  DEG  C. 

C  NOTE:  HERE  AND  IN  CONS 7 

C  CP  -  1.0  CAL/G-C  RHO  -  1  G/CMA3 

C  BTU  *  0.252  -  KCAL 

C  28.33  -  ( 1 OOCM ) **3 / ( 1 000  CAL/KCAL*  35.31  FT**3/M**3) 

C 

DTEM  -  (HFLUX  *  0.252)  /C0NS7 

FWST  -  FWST  +  DTEM 

TEMP  -  FWST 

92  FORMAT(A8,F8.2,3X,A8) 

93  FORMAT (5X,A8,F8. 2,3X,A8) 

94  FORMAT(8X, 818 ) 

95  FORMAT ( 8X, 6F8. 2) 

96  FORMAT( 1018) 

97  FORMAT (8X, 5F8 . 0) 

RETURN 

END 

C  .  . . . . . 

C  .  .  SUBROUTINE  HEATFLUX 
C  .  . . . . . .  . . 

c 

c  . 

C  ..  THIS  IS  GENERAL  SUBROUTINE  TO  CALCULATE  .. 

C  . .  THE  HEAT.  THE  FOLLOWING  DATA  HAVE  TO 
C  ..BE  SUPPLIED,  EITHER  BY  READING  FROM 
C  ..  OWN,  OR  FROM  OTHER  PROGRAM. 

C 

C  JDY 

C  .  .  LSI! 

C 

C  .  .  LATUD 

C  . .  LONTUD 

C 

C  . .  CLOUD 
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:  DAY  OF  YEAR  STARTING  SIMU 
:  LONGITUDE  OF  STANDARD 
MERIDIAN,  DEGREE 
:  LOCAL  LATITUDE,  DEGREE 
:  LOCAL  LOGITUDE,  DEGREE 
-1  FOR  WEST,  +  1  FOR  EAST 
:  CLOUDINESS,  0  -  0.99 


DUC, 

LSMC, 

LONTUC , 

WINDO, 

CLOUDO 

DEPTHO, 

WSEO , 

WETO, 

DRYO, 

non 


c 

c 

•  • 

DU 

DUST  ATTENUATION,  VALUE 
FROM  0  -  0.13 

•  * 

c 

•  * 

WETBLB 

WET  BULB  TEMP,  F 

o 

*  * 

DRYBLB 

DRY  BULB  TEMP,  F 

c 

•  • 

WINSPD 

WIND  SPEED,  MILE/HOUR 

c 

ELEV 

WATER  SURFACE  ELEV, FT 

c 

«  * 

TEM 

TEMPERATURE,  C 

c 

c 

•  • 

*  * 

RHO 

DENSITY,  GRAM  PER  CUBIC 
MILLIMETER 

c 

c 

•  « 

HNEF 

HEAT  FLUX,  VALUE  RETURNED 
AS  BTU/FT**2 

•  * 

C 

C 


SUBROUTINE 

HEATFLUX  (JDY, 

DU, 

* 

LATUD, 

LONTUD, 

* 

TEM, 

WINSPD, 

* 

ATMPR , 

DEPTH, 

* 

RHO, 

WETBLB, 

* 

HNEF) 

COMMON/TIME/ 

STB, 

STE, 

* 

TOFDAY , 

JDYO, 

* 

LMN, 

CONS 7, 

* 

J 

COMMON/PERIOD/  LMREAD , 

HSTART , 

COMMON/ SUB/ 

JDYO , 

DUC, 

* 

LATUDC , 

LONTUC , 

* 

TEMO, 

WINDO , 

* 

ATMO, 

DEPTHO , 

* 

RHOO, 

WETO, 

* 

HFLUX , 

DTEM, 

* 

HNEFSW, 

OXIDAT, 

* 

KFEDK, 

KMNDK, 

REAL 

LATUDC, 

LONTUC, 

CHARACTER 

ITEM0*8, 

ITEM 1*8, 

* 

UNIT1*20 

REAL 

LONTUD, 

LATUD, 

CONSTANT 

DATA 

PI/3.141618/, 

HCAP/1.0/, 

* 

HSC/438. / 

SPWEVA/62. 22/ 

ELEVP  *  EXP(- 

-ELEV  / 253  2 . ) 

CONSi  =  2.*PI/365. 
C0NS2  =  PI*LATUD  / 180 . 
C0NS3  =  180. /PI 
C0NS4  =  23 . 45*PI/180. 
CONS 5  =  PI/12. 

C0NS6  =  12. /PI 


LSM, 

CLOUD, 
ELEV, 
DRYBLB , 


DELTAT, 

LII, 

I. 


ITEM 

LSMC, 

CLOUDO , 
WSEO, 
DRYO, 
FWST, 

KCOLIDK 

LSMC 

UNIT0*20 , 
LSM 


RWSAR/0. 03/ , 
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C0NS7  -  RHO*28 . 3  3 6*HCAP*DEPTH 
C0NST3  -  6.8E-04 
C0NST4  -  2.7E-04 


C  STEFAN-BOLTZMAN  C0NSTAN1 

STBOLC  -  1.73E-09 
C 

C  COMPUTATION 

C 

C  RADIATION  EXCHANGE  HEAT 

C 

C  (A)  NET  SHORT-WAVE  SOLAR  RADIATION  (HNSWR) 

C 

C  A- I.  RADIATION  FLUX 

WST  -  (TEM  *  9. )/5.  +  32. 

FOR  THE  SAME  DAY,  FOLLOWING  CALCULATION  IS  SAME 


$4  FORMAT( IX, 14, 5X, 14) 

IF  (  (J  .EQ.  1  .AND.  LMN  .EQ.  1  .AND.  LIT  .EQ.  1)  .OR. 

*  (JDY  .NE.  JDYO  .AND.  LMN  .EQ.  1  .AND.  LII  .EQ.  1)  )  THEN 

DECLINATION 

DESUN  -  CONS4*COS ( CONS 1*( 173 . -JDY) ) 

DECLIN  -  ABS (DESUN) 

EARTH-SUN  DISTANCE 

.17  CHANGED  TO  .017  IN  EQUATION  BELOW  (3-07-89) 

REARTH  -  1.0  +  0.017 *COS ( CONS  1 * (1 86 . - J DY ) ) 

ETIME  =  0.000121-0. 12319*SIN(C0NS1*(JDY-1. )-0. 0714)- 

*  0. 16549*SIN(2.*C0NS1*(JDY-1. )  +  0.3088) 

DIFFERENCE  BETWEEN  STANDARD  AND  LOCAL  CIVIC  TIME 

DSTLT  =  (LSM  -  LONTUD)/15. 

STANDARD  TIME  OF  SUNRISE  AND  SUNSET 

ACS  =  TAN ( CONS  2 ) *TAN ( DECLIN ) 

C 

IF  (ACS  .NE.  0.)  THEN 

XI  =  SQRT( 1 . -ACS*ACS) 

XI  =  Xl/ACS 
ACS  =  ATAN(Xi) 

IF  (DESUN  .GT.  0.)  ACS  =  PI-ACS 
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ELSE 

ACS  -  PI/2.0 

END  IF 
C 

TIMRIS  -  12.-(CONS6*ACS)  +  DSTLT 
TIMSET  -  24. -TIMRIS  +  2.*DSTLT 
C 

END  IF 
C 

C  SATURATED  VAPOR  PRESSURE  OF  THE  AIR,  SVPA 
C 


SVPA  -  0. I001*EXP(0.03*WST  )-0.0837 
C 

C  THE  FOLLOWING  ARE  THE  SAME  FOR  EACH  NODE  BUT  CAN 

C  CHANGE  AT  EACH  TIME  STEP.  LMN  AND  LI I  EQUAL  1  AT 

C  EACH  NEW  TIME  STEP. 

a*********************************************** 

C 

IF  (  LMN  .NE.  1  .OR.  LII  .NE.  1  )  GO  TO  480 

******************************************************************** 

******************************************************************** 

C  IF  YOU  WANT  TO  READ  IN  DEW  POINT  TEMPERATURES  INSTEAD  OF  WET  BULB, 

C  COMMENT  OUT  ALL  STATEMENTS  BETWEEN  THE  XXXXXXX  SECTION 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

C....  SATURATED  VAPOR  PRESSURE,  SVAP 
C 

SVAP  t,  0. 1001*EXP(0 . 03*WETBLB  )-0.0837 
C 

C....  WATER  VAPOR  PRESSURE  (WVAP) 

C 

WVAP  =  SVAP-0. 000367*ATMPR  * 

*(DRYBLB  -WF.TBLB  )*(1.0  +  (WETBLB  -32 . ) / 157 1 .  ) 

C 

C.  . . .  DEW  POINT 
C 

DEWPON  -  L0G( (WVAP  +  0.0837)/0. 1001)/0.03 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c********************************************************************** 
C  IF  YOU  WANT  TO  READ  IN  DEW  POINT  TEMPERATURES  INSTEAD  OF  WET  BULB,  * 
C  UNCOMMENT  THE  NEXT  TWO  STATEMENTS  * 

C  DEWPON  =*  WETBLB  * 

C  WVAP  =  0.1001  *  EXP (0.03  *  DEWPON)  -  0.0837  * 

C********************************************************************** 
C 

C  HOUR  ANGLE 
C 

IF  (TIMSET  .LE.  STB  .OR.  TIMRIS  .GE.  STE) 

*  THEN 

GO  TO  35 
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ELSE  IF 

(TIMRIS  .GT.  STB  . 

AND.  TIMRIS  .LT.  STE) 

*  THEN 

DIUEXP 

-  1. 

ANGRIS 

=  TIMRIS  -DSTLT  + 

ETIME-12. 

ANGSET 

=  STE  -DSTLT  + 

ETIME-12. 

ELSE  IF 

(TIMSET  .LT.  STE 

.AND.  TIMSET  .GT.  STB) 

*  THEN 

DIUEXP 

=  1. 

ANGRIS 

«  STB-DSTLT  +  ETIME-12. 

ANGSET 

=  TIMSET  -DSTLT 

+  ETIME-12. 

ELSE 

DIUEXP 

S*  1  . 

ANGRIS 

=  STB-  DSTLT  + 

ETIME-12. 

ANGSET 

=  STE-  DSTLT  + 

ETIME-12. 

END  IF 

CALCULATE  HOUR  ANGLE, T, (HOURAN) 

HOURAN  =  (ANGRIS  +  ANGSET  )/2. 

SHORT-WAVE  SOLAR  RADIATION  FLUX 

HRF  =  HSC/(REARTH**2. )*<SIN(CONS2)*SIN(DESUN)* 

*  (ANGSET- ANGRIS)  +  CONS6*COS(CONS2)* 

*  COS ( DESUN ) *( SIN ( CONS5*ANGSET ) - 

*  SIN(CONS5*ANGRIS)))*DIUEXP 


C 

C  A-II .  ATMOSPHERIC  TRANSMISSION  TERM,  AT (ATT) 
C 

C  SUN  ALTITUDE  IN  RADIANS 
C 

ALPH  =  SIN(CONS2)*S IN (DESUN)  + 

*COS ( CONS  2 ) *COS ( DESUN ) *COS ( CONS  5  *H0UR AN  ) 

IF  (ABS(ALPH  )  .NE.  1.0)  THEN 

Y1  =  SQRT( 1 . -ALPH  **2 ) 

Y1  =  ALPH  /Y1 
ALPH  =  ATAN(Yl) 

ELSE  IF  (ALPH  .NE.  -1.0)  THEN 
ALPH  =  PI/2.0 

ELSE 

ALPH  =  -PI/2.0 
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END  IF 


IF  (ALPH  .LT.  0.01)  GO  TO  35 
OPTICAL  AIR  MASS 

OAM  =  ELEVP  /(SIN(ALPH  )  +  0. 15*((180.*ALPH  / 

*  PI  +  3. 885) **(-1.253))) 

MEAN  DAILY  PRECIPITATE  WATER  CONTENT 
PWC  -  0 . 00614*EXP(0 . 0489*DEWPON  ) 

MEAN  ATMOSPHERIC  COEFFICIENT,  A' (AC) 

AC  »  EXP(-(0. 465  +  0. 0408*PWC  )*(0.129  +  0. 171*EXP(-0. 880* 

*  OAM  ) )*0AM  ) 

MEAN  ATMOSPHERIC  TRANSMISSION  COEFFICIENT 

ATC  =  EXP(-(0. 465  +  0.0408*PWC  )* 

*  (0.179  +  0. 421*EXP(-0. 721*OAM  ))*0AM  ) 

C 

C  DETERMINE  THE  VALUE  OF  AR  (A),  AND  BR  (B), 

C  FROM  THE  VALUE  OF  CLOUD  FOR  THE  FUNCTION  OF 

C  REFLECTION  COEFFICIENT  ,RS. 

C 

CNL  *  CLOUD  *10  +  1.0 
NLL  =  CNL 

GO  TO  (50, 51, 51, 51,51, 51, 52,52, 52, 52, 53), NLL 

50  AR  »  1.18 
BR  *  -0.77 
GO  TO  54 

51  AR  =  2.20 
BR  =  -0.97 
GO  TO  54 

52  AR  =  0.95 
BR  =  -0.75 
GO  TO  54 

53  AR  -  0.35 
BR  =  -0.45 

54  CONTINUE 
C 

C  REFLECTION  COEFFICIENT 
C 

C  SOLAR  ALTITUDE  IN  DEGREE 
C 

RS  =  AR*(CONS3*AL?H  )**BR 
C 

C  DAMPENING  EFFECT  ON  THE  SOLAR  RADIATION  FLUX 
C  GIVES  SATISFACTORY  RESULTS  EXCEPT  FOR  HEAVY 
C  OVERCAST  CONDITION, I. E.  WHEN  CLOUD 
C  APPROACHES  1 . 0 
C 

IF  (CLOUD  .LE.  0.9)  THEN1 
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CS  -  1.0-0. 65*CLOUD  **2, 

ELSE 
CS  -  0.5 
END  IF 
C 

C  CALCULATE  ATMOSPHERIC  TRANSMISSION  TERM 
C 

ATT  -  (ATC  +  0.5* ( 1 . -AC-DU ) ) / 

*  ( 1 . -0 . 5*RS  *( 1 . -AC  +  DU)) 

C 

C  NET  SHORT-WAVE  SOLAR  RADIATION  BTU/FT**2 
C 

HNSWR  =  HRF*ATT*( 1 . -RS)*CS 

GO  TO  479 

35  DIUEXP  *  0. 

HNSWR  -  0 . 

479  CONTINUE 
C 

C  (B)  CALCULATE  LONG-WAVE  ATMOSPHERIC  RADIATION, HAN  (HNLWR) 
C 

HNLWR  -  (2.89E-06)*STBOLC*((DRYBLB  +460.)**6)* 

*  (1.0  +  0. 17*(CLOUD  **2. ) )*( 1 . -RWSAR) 

C 

C  COMPUTE  INSOLATION  FOR  ALGAE 
C 

IF  (  DELTAT  .LE.  0.  )  GO  TO  481 
HNEFSW  -  HNSWR  /  DELTAT 

GO  TO  482 

481  CONTINUE 
HNEFSW  =  0. 

482  CONTINUE 
C 

C  CONVERT  TO  W/M**2 
C 

HNEFSW  =  HNEFSW  *  3.155 

480  CONTINUE 
C 

C  (C)  CALCULATE  WATER  SURFACE  BACK  RADIATION,  (HOLwBR) 

C 

HOLWBR  =  0. 97*STBOLC*( (WST  +  460.)**4) 

C 

C  EVAPORATION  HEAT 

C 

C  (D)  CALCULATE  EVAPORATION  (HEVAP) 

C 

C  D-I .  CALCULATE  EVAPORATE  RATE,  E,  (EVARAT) 

C 

EVARAT  =  (CONST3  +  C0NST4*WINSPD  )*(SVPA  -WVAP  ) 

IF  (EVARAT  .LT.  0.)  EVARAT  =0. 

C 
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D-II.  CALCULATE  SENSIBLE  HEAT  LOSS (HSENH) 

HSENH  -  0. 

D-II  I .  CALCULATE  LATENT  HEAT  OF  EVAPORATION,  HL,  (HLEVA) 
HLEVA  =  1084. -0. 5*WST 
HEAT  LOSS  BY  EVAPORATION  HE  (HEVAP) 

HEVAP  -  SPWEVA*HLEVA  *EVARAT  +  HSENH 

CONDUCTION  HEAT 

(E)  CALCULATE  CONDUCTION  HEAT,  HC,  (HCOND) 

HCOND=  SPWEVA*HLEVA* ( C0NST3  +  C0NST4* 

*  WINSPD)*(0. 01*ATMPR  /29.92)* 

*  ( DRYBLB  -WST) 

FINALLY,  CALCULATE  NET  ENERGY  FLUX  PASSING 

THE  AIR-WATER  INTERFACE,  HN(HNEF) , BTU/FT**2 , DELTAT-HOURS 

HNEF  =  HNSWR  +  (HNLWR  -HOLWBR  +  HCOND  - 

*  HEVAP  )  *  DELTAT 


RETURN  VALUE  HERE 

RETURN 
END 

FUNCTION  TAN  (X) 

TAN=SIN(X/57 . 3 )/COS(X/57 . 3) 

RETURN 
END 

FUNCTION  ASIN(X) 

ASIN=X  +  (X**3./6.)  +  (3.*X**5./40. )  +  (15.*X**7. /336. ) 

RETURN 
END 

FUNCTION  ACOS(X) 

ACOS=ASIN(SQRT( 1 . -X**2. ) ) 

RETURN 
END 

C  SUBROUTINE  REAERK 

C***********)*c*****),t***!,<**************i,t****s,:*'*:************!‘!********,*!*,':* 

C*  SUBROUTINE  REAERK  CALCULATES  REAERATION  COEFFICIENT  (RK)  (M/DAY) 

C*  GIVEN  WIND  SPEED  (WS)  (M/S)  AND  TEMPERATURE  (T)  (C)  USING  THE 
C*  METHOD  PRESENTED  IN  JOUR  OF  ENV  ENG, VOL.  109,  NO. 3, PP. 731-752, 

C*  JUNE  1983, AUTHOR:  D. J . 0 'CONNOR,  TITLE:  "WIND  EFFECTS  ON  GAS- 
C*  LIQUID  TRANSFER  COEFFICIENTS 

C*  PARAMETERS  USED  IN  THIS  SUBROUTINE  WERE  THOSE  GIVEN  FOR 
C*  INTERMEDIATE  SCALE  CORRELATION  (TABLE  2),  I.E.,  LARGE- LABORATORY 
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C*  SYSTEMS  AND  MODERATELY  SIZED  LAKES. 

SUBROUTINE  REAERK(WS ,  TA,  TW, RK) 

REAL*4  KA,LAM,KA3 
C 

C  CALCULATE  DIFFUSIVITY  OF  OXYGEN  IN  WATER  (DIFF)  (CM**2/SEC) »  VISCOSITY 
C  OF  WATER  (VW)  (CM**2/SEC) , VISCOSITY  OF  AIR  (VA)  (CM**2/SEC) , DENSITY 
OF  WATER  (PW)  (G/CM**3),  DENSITY  OF  AIR  (PA)  (G/CM**3) 

DIFF-4. 58E-07*TW+1 . 2E-05 
TA  -  (TA-32. )*5./9. 

VW«=0 .0164-.  000245 14*TW 
VA«. 133+. 0009*TA 
PA=.  001.29-.  0000040*TA 
PW-1.00 
WS=«WS*100. 

RK-1 . 

N-0 

C  USE  NEWTON  RAPHSON  METHOD  TO  CALCULATE  THE  SQUARE  ROOT  OF  THE  DRAG 
C  COEFFICIENT.  PARAMETERS  USED  IN  THE  MODEL  INCLUDE  TRANSITIONAL 
C  SHEAR  VELOCITY  -  UT(M/SEC)j  CRITICAL  SHEAR  VELOCITY-  UC(CM/SEC); 

C  VON  KARMAN'S  CONSTANT- ( KA ) ;  EQUILIBRIUM  ROUGHNESS-ZE(CM) ; 

C  1/LAM  IS  A  REYNOLDS  NUMBER;  GAM  IS  A  NON-DIMENSIONAL  COEFFICIENT 
C  DEPENDENT  ON  THE  WATER  BODY  SIZE.  LAM,  GAM,  UT,  MC,  AND  ZE  ARE 
C  ALSO  DEPENDENT  ON  WATER  BODY  SIZE. 

UT=10 . 0 
UC-ii.O 
KA=0. 4 

KA3=KA**. 3333 
ZE=0. 25 
LAM=3 . 0 
GAM=6. 5 
WH=1000. 

C  MAKE  INITIAL  GUESS  FOR  SQUARE  ROOT  OF  THE  DRAG  COEFFICIENT 
SRCD-0.04 
10  N=*N+1 

C  CALCULATE  VALUE  OF  FUNCTION(F2)  AND  DERIVATIVE  OF  FUNCTION(FP) 
EF=»EXP(-SRCD*WS/UT) 

F 1 =LOG ( ( WH/ ZE )  +  ( WH*LAM / VA ) *S  RCD*WS*EF ) 

F2=Fl-KA/SRCD 

FP 1 = 1 . / ( ( WH/ ZE ) + ( LAM*WH/VA ) *SRCD*WS*EF ) 

FP  2= ( (WH*LAM ) / ( VA*UT ) ) *SRCD*WS**  2*EF 

FP3=(WH*LAM/VA)*WS*EF 

FP4=FP1*(FP2+FP3)+(KA/(SRCD**2)) 

C  CALCULATE  NEW  VALUE  OF  SQUARE  ROOT  OF  DRAG  COEFFICIENT.  COMPARE 
C  TO  PREVIOUS  VALUE.  IF  NOT  ACCEPTABLE  RETURN  TO  NEWTON-RAPHSON 
C  ALGORITHM. 

SRCD2=SRCD-F2/FP4 
ERR=ABS ( SRCD-SRCD2 ) 

IF(ERR.GT. 0.0005. AND. N.LT. 8 )THEN 
SRCD=SRCD2 
GO  TO  10 

END  IF 


C40 


IF(ERR. GT. O'. 005 . AND.N. GE. 8)  GO  TO  90 

CD«SRCD**2 

US-SRCD*WS 

Z0- i . / ( ( 1 . / ZE ) +LAM*US*EXP ( -US/UT ) / VA ) 

WS-WS/100. 

IF(WS. LT. 6 . 0)GO  TO  60 

IF(WS.GE. 6. 0. AND. WS. LE. 20 . 0)GO  TO  80 

IF(WS.GT.20.0)GO  TO  70 

C  CALCULATE  RK  FOR  WINDSPEEDS  LESS  THAN  6.0  M/SEC  BASED  ON 
C  EQUATION  23b  IN  CITATION 

60  RK1-(DIFF/VW)**0.666667*SRCD*(PA/PW)**0.5 

RK-RK 1 *KA3  *WS  / GAM 
RK-RK*3600.*24. 

GO  TO  85 

C  CALCULATE  RK  FOR  WINDSPEEDS  GREATER  THAN  20  M/S  BASED  ON 
C  EQUATION  25b  IN  CITATION 

70  RK«(DIFF*PA*VA*US/(0. 1*PW*VW) )**0. 5 
RK-RK*3600.*24./100. 

GO  TO  85 

C  CALCULATE  RK  FOR  WINDSPEEDS  BETWEEN  6  AND  20  M/S  BASED  ON 
C  EQUATIONS  26a  and  27  IN  CITATION 

80  GAMU-GAM*US*EXP ( -US /UC+ 1 . )/UC 

RKMDIFF/VW)**.6667*KA3*(PA/PW)**0.5*US/GAMU 
RK2=(DIFF*US*PA*VA/(KA*Z0*PW*VW) )**0. 5 
RK3«(1./RK1)+(1./RK2) 

RK-1./RK3 

RK-RK*3600.*24./100. 

GO  TO  85 
90  WRITE(6 , 102) 

102  FORMAT(5X, 'SOLUTION  DID  NOT  CONVERGE') 

85  CONTINUE 
RETURN 
END 
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APPENDIX  D:  FORTRAN  VARIABLES 


D1 


2 

A  Cross-section  area  (L  ).  TRIDAG:  The  lower  codiagonal. 

AA  The  coefficient  matrix. 

ACLOCK  The  24-hr  clock  time  (T) . 

ADN  An  empirical  coefficient  relating  to  the  reactivity  and  diffusivity 

_BK  — 3BK 

of  nitrate  in  the  benthal  boundary  layer  (T  L  ) . 

AG  An  empirical  coefficient  in  the  general  equation  for  K2 

<te1-2le2-e1). 

AKC  An  empirical  coefficient  relating  the  reactivity  and  diffusivity  of 

BK—  — 3BK 

the  free  variable  in  the  benthal  boundary  layer  (T  L  ) . 

AKN  An  empirical  coefficient  relating  the  reactivity  and  diffusivity  of 

BK-1  — 3BK 

the  ammonia  variable  in  the  benthal  boundary  layer  (T  L  ) . 

AKNX  An  empirical  coefficient  relating  the  absorptivity  and  diffusivity 

BK— 1  — 3BK 

of  ammonia  in  the  benthal  boundary  layer  (T  L  ) . 

AK1  An  empirical  coefficient  relating  the  reactivity  and  diffusivity  of 

BK“*1  -3BK 

carbonaceous  biochemical  oxygen  demand  (T  L  ) . 

ALABEL  The  names  of  each  of  the  eight  modeled  species. 

ALGADK  The  rate  of  algal  decay  (MT-1L-3) . 

-2 

ALGAEB  The  benthal  concentration  of  algae  (ML  ) . 

-3  -1 

ALGRO  The  algal  growth  rate  coefficient  (ML  T  ) . 

-2  -1 

ALGO  Lumped  algal  decay  rate  coefficient  (ML  T  ) . 

-2  -1 

ALGI  Lumped  algal  growth  rate  coefficient  (ML  T  ) . 

AP04  An  empirical  coefficient  relating  the  absorptivity  and  diffusivity 

Bk_i  — 3BK 

of  phosphate  in  the  benthal  boundary  layer  (T  L  ) , 

2 

AS  Cross-sectional  area  averaged  over  the  characteristic  line  (L ') . 

ATB  The  rate  coefficient  for  bottom  heat  loss. 

ATS  The  rate  coefficient  for  surface  heat  loss. 

AUNIT  The  units  of  each  of  the  eight  modeled  species. 

AO  RIVlH:  A(I) ,  RIV1Q:  Area  at  the  previous  time-step. 

A.l  RIVlH:  A(I+1),  RIV1Q:  Cubic  interpolation  coefficient  for 

concentrations . 

A2  Cubic  interpolation  coefficient  for  concentration. 

A3  Cubic  interpolation  coefficient  for  concentration. 

A4  Cubic  interpolation  coefficient  for  concentration. 

B  Channel  top-width  (L) .  TRIDAG:  The  main  diagonal. 


Note:  Appendix  D  may  not  contain  all  of  the  FORTRAN  variables. 
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BC  Boundary  conditions. 

BCD  Downstream  boundary  conditions. 

BCU  Upstream  boundary  conditions. 

BETA  Momentum  correction  factor.  TRIDAG:  Workspace  array. 

BK  An  empirical  coefficient  reflecting  the  thickness  of  the  benthal 

boundary  layer. 

BLABEL  Array  of  labels,  packed  for  output. 

BOUND  Boundary  conditions  storage  array. 

BTD  Boundary  condition  type  downstream. 

BTU  Boundary  condition  type  upstream. 

BUNIT  Array  of  units,  packed  for  output. 

BO  RIV1H:  Provisional  estimate  of  B.  RXV1Q:  B  at  the  previous  time- 

step  (L) . 

B1  Cubic  interpolation  coefficient  for  spatial  derivative;  of  the 

concentration. 

B2  Cubic  interpolation  coefficient  for  spatial  derivative  of  the 

concentration. 

B3  Cubic  interpolation  coefficient  for  spatial  derivative  of  the 

concentration. 

B4  Cubic  interpolation  coefficient  for  spatial  derivative  of  the 

concentration. 

C  RIV1H:  The  vector  C^  of  the  matrix  solution  procedure. 

RIV1Q:  The  concentrations  of  each  of  the  eight  modeled  species 

_3 

(ML  ).  TRIDAG:  The  upper  codiagonal. 

CBDOL  The  concentration  of  carbonaceous  biochemical  oxygen  demand  in  the 

_3 

lateral  inflow  (ML  ) . 

CCL  The  difference  between  concentration  in  the  lateral  inflow  and  the 

_3 

stream  (ML  ) . 

CL  The  concentrations  of  each  of  the  eight  modeled  species  in  the 

_3 

lateral  inflow  (ML  ) . 

CLABEL  The  label  assigned  to  the  free  variable. 

CLOCK  The  clock  time  in  fraction  of  a  day  (T) . 

CN  Lumped  scalar  equivalent  of  CN1 (I) . 

CN1  Modified  Manning's  coefficient. 

COEF  Coefficient  in  the  rating  curve. 

_3 

COL  The  concentration  of  the  free  variable  in  the  lateral  inflow  (ML  ) . 
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CONST 

CONVRT 

COSP 

CP 

CSINK 

CUNIT 

CO 

COO 

Cl 

C2 

C3 

D 

DADX 

DAMK 

DAMKO 

DARK 

DATE 

DAWN 

DBCA 

DBCQ 

DBDH 

DC 

DCOO 

DD 

DE 

DEN 

DFA 

DFA1 

DFQ 


The  name  of  the  namelist. 

The  conversion  factor  for  customary  to  SI  units. 

The  cosine  of  the  junction  angle. 

The  presence/absence  of  each  of  the  eight  modeled  species, 

-3  -1 

The  sink  term  for  the  free  variable  (ML  T  ) . 

The  units  of  the  free  variable. 

The  scalar  equivalent  of  C(I)(ML  ). 

_3 

The  concentration  just  upstream  of  the  junction  node  (ML  ) . 
Coefficient  in  the  stage-area  formula. 

Coefficient  in  the  stage-area  formula. 

Coefficient  in  the  stage-area  formula. 

RIV1H:  A/B.  MAT5:  Gauss  elimination  factor. 

RIV1Q:  Tributary  dilution  ratio. 

Spatial  derivative  of  area  (L) . 

Empirical  coefficient  in  the  formula  for  reaeration  through  control 
structures. 

Scalar  equivalent  of  DAMK. 

Logical  flag  for  whether  the  current  time-step  is  outside  of  the 
daylight  hours. 

The  date  of  the  program's  execution. 

Time  of  sunrise  (T) . 

Derivative  of  the  rating  curve  with  respect  to  A  . 

Derivative  of  the  rating  curve  with  respect  to  Q  . 

Derivative  of  B  with  respect  to  H  . 

3  -4 

Spatial  derivative  of  the  concentration  (ML  ) . 

Spatial  derivative  of  the  concentration  just  upstream  of  the  junc¬ 
tion  node  (M-L  . 

Dilution  ratio  of  the  tributary's  spatial  derivative. 

Elevation  head  loss  over  a  reach  (L) . 

Lumped  denominator. 

Derivative  of  the  residual  of  the  continuity  equation  with  respect 
to  A(I) , 

Derivative  of  the  residual  of  the  continuity  equation  with  respect 
to  A(I+I). 

Derivative  of  the  residual  of  the  continuity  equation  with  respect 
to  Q(I) . 
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DFQ1  Derivative  of  the  residual  of  the  continuity  equation  with  respect 

to  Q(I+1). 

DGA  Derivative  of  the  residual  of  the  momentum  equation  with  respect  to 

A(I). 

DGA1  Derivative  of  the  residual  of  the  momentum  equation  with  respect  to 

A(I+1) . 

DGQ  Derivative  of  the  residual  of  the  momentum  equation  with  respect  to 

Q(I). 

DGQ1  Derivative  of  the  residual  of  the  momentum  equi  on  with  respect  to 

Q(I+1) . 

DJ  The  main  storage  array. 

DK  The  spatial  derivative  of  the  decay  rates  (T  *) . 

_3 

DOL  Dissolved  oxygen  concentration  in  the  lateral  inflow  (ML  ) . 

-3 

DOSAT  Dissolved  oxygen  saturation  value  (ML  ). 

DOSAVE  Dissolved  oxygen  concentration  just  upstream  of  a  control  structure 
(ML-3) . 

_3 

DOX  Provisional  estimate  of  dissolved  oxygen  concentration  (ML  ) . 

DQLA  Spatial  derivative  of  the  lateral  inflow  per  unit  area  (T-1L-1) . 

DSINK  Spatial  derivative  of  the  source/sink  terms  (T  *L  1). 

DT  Time  increment  (T) . 

DUDX  Spatial  derivative  of  velocity  (T  *) . 

DX  Reach  length  (L) . 

DX1  Reach  length  (L) . 

DO  A  distance  equivalent  of  the  time  increment,  used  for  estimating  a 

derivative  at  the  boundary  (L) . 

D1  RIV1H:  THETA*DT(T) ,  RIVIQs  DX(1)  (L) . 

D2  DWPMN:  2*D1/DX1 (I)  (TL-1),  RIV1Q:  DX*(2)  (L). 

E  Fraction  of  the  reach  length  above  the  node  at  which  the 

characteristic  line  originated. 

EC  The  complement  of  E;  i.e.,  1-E. 

ELO  Water  surface  elevation  (L) . 

ELAPSE  Total  elapsed  simulation  time  (T) * 

ELO  Water  surface  elevation  at  the  previous  time-step  (L). 

EXPO  Exponent  in  the  rating  curve  formula, 

El  An  empirical  coefficient  for  velocity  in  the  general  equation  for 

k2. 
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E2 

F 

FEEDS 

FLIPl 

FLIP  2 

FLOW 

FMT 

FMT1 

FMT  2 

GAMMA 

GR 

GO 

G2 

H 

HYDRO 
HYDRO 1 
HYDR02 
HO 

HI 

I 

IA 

IBC 

IBCL 

ICYCLE 

ID 

IDAM 

IDAMO 

IDAY 

IDLL 


An  empirical  coefficient  for  mean  depth  in  the  general  equation  for 

k2. 

A  workspace  array. 

FEEDS (I)  is  the  identification  number  of  the  segment  that  segment  I 
feeds  into. 

A  logical  flag  which  indicates  that  the  first  two  columns  of  the 
coefficient  matrix  have  been  pivoted. 

A  logical  flag  which  indicates  that  the  last  two  columns  of  the 
coefficient  matrix  have  been  pivoted. 

A  scalar  assigned  the  literal  value  *  Q*  for  scanning  the  input  deck. 
The  output  format  array. 

The  format  specification  F14.1. 

The  format  specification  F14.2. 

TRIDAG:  A  workspace  array. 

,  -2. 

Acceleration  due  to  gravity  (LT  ) . 

A  correction  factor  for  the  spatial  derivative  due  to  accelerating 
flow. 

GR/2  (LT~2). 

RIV1H:  depth  of  flow  above  the  channel  bottom  (L) , 

RIVIQ:  average  depth  of  flow  (L) . 

The  output  array  for  hydrodynamic  data. 

The  input  array  for  hydrodynamic  data  at  odd  time-steps. 

The  input  array  for  hydrodynamic  data  at  even  time-steps. 

RIVlH:  a  provisional  estimate  of  H  (L) ,  RIVIQ:  H  at  the  previous 
time-step  (L) . 

A  provisional  estimate  of  H  (L) . 

An  index  (usually  for  nodes) . 

An  index  for  the  coefficient  matrix. 

An  index  for  boundary  conditions. 

IBC(L) . 

An  index  for  sensitivity  analysis. 

Segment  identification  number. 

Control  structure  type. 

A  scalar  equivalent  of  IDAM. 

The  day  number  of  the  simulation. 

ID(LL) . 
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IDC 

IEHOUR 

IEMIN 

II 

INDl 

IND2 

IND3 

IND4 

IND5 

INIT 

IPRINT 

IR 

ISURMX 

IT 

ITIME 

ITO 

IT1 

IT2 

13 

J 

JBC 

JBCD 

JBCU 

JJ 

JNODE 

JT 

JUNCT 

K 


A  scalar  equivalent  of  ID. 

The  hours  component  of  the  24-hr  clock  time. 

The  minutes  component  of  the  24-hr  clock  time. 

An  index. 

The  total  number  of  nodes  in  the  system. 

RIV1R:  The  array  space  needed  for  AA,  RIV1Q:  The  number  of  time 
intervals. 

RIV1H:  The  array  space  needed  for  C  and  R;  RIV1Q:  The  total 
possible  number  of  boundary  condition  values. 

The  array  space  required  for  HYDRO,  HYDR01,  and  HYDR02. 

The  array  space  required  for  each  component  of  HYDR01  and  HYDR02. 

_3 

The  array  of  initial  conditions  (ML  ) . 

The  print  interval. 

An  index  for  the  array  R. 

-3 

The  maximum  light  intensity  at  the  water  surface  (MT  ) . 

Indexes  tributaries. 

Time-step  number. 

ITO(L)  is  the  index  of  the  T-array  at  which  segment  L  deposits  its 
data. 

IT1(L)  is  the  index  of  the  T-array  at  which  the  first  tributary  to 
segment  L  deposits  its  data, 

IT2(L)  is  the  index  of  the  T-array  at  which  the  last  tributary  to 
segment  L  deposits  its  data. 

The  integer  equivalent  of  C3. 

An  index  (usually  for  time) . 

Segment  L  will  find  its  boundary  conditions  at  index  JBC(L). 

Segment  L  will  find  its  downstream  boundary  conditions  at  index 
JBCD(L) . 

Segment  L  will  find  its  upstream  boundary  conditions  at  index 
JBCU(L) . 

An  index. 

Junction  node. 

An  array  of  junction  nodes,  packed  in  the  same  manner  as  T. 

A  flag  for  whether  the  current  node  is  a  junction  node. 

RIV1H:  An  index;  RIV1Q;  Decay  rates  for  each  of  the  eight  modeled 
species  (T  *) . 
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KALGDK  The  specific  algal  decay  rate  (T  ) . 

2  -1 

KALGRC  The  specific  algal  growth  rate  (T  M  ) . 

KC  The  decay  rate  for  the  free  variable  (T  *) . 

KDN  The  denitrification  rate  (T  *) . 

KEXT  The  light  extinction  coefficient  (L  *) . 

KE1  Channel  constriction  energy  loss  coefficient. 

KN  The  rate  of  ammonia  decay  due  to  nitrification  (T  *). 

KNCBDN  The  Monod  half-velocity  constant  for  nitrate-inhibited 

_3 

denitrification  (ML  ) . 

KNX  The  rate  of  ammonia  decay  due  to  sediment  sorption  (T  *) . 

KOALDK  The  Monod  half-velocity  constant  for  oxygen  limitation  of  algal 

-3 

decay  (ML  ) . 

KOCBDN  The  Monod  half-velocity  constant  for  oxygen  inhibition  of 

_3 

denitrification  (ML  ) . 

K0CB1  The  Monod  half-velocity  constant  for  oxygen  limitation  of 

_3 

carbonaceous  biochemical  oxygen  demand  decay  (ML  ) . 

KON  The  Monod  half-velocity  constant  for  oxygen  limitation  of 

-3 

denitrification  (ML  ) . 

KP04DK  The  phosphate  decay  rate  (T  *). 

KS  The  average  K-rate  across  the  characteristic  line  (T  *). 

KTB  The  bottom-water  heat  exchange  rate  (T  *), 

KTS  The  air-water  heat  exchange  rate  (T  ^). 

K1  The  CBOD  decay  rate  (T  ^). 

K2  The  reaeration  rate  (T  *). 

L  An  index  for  segments. 

LAMBDA  The  duration  of  daylight  (T) . 

LAST  The  index  of  the  last  item  interchanged. 

LIB  The  set  of  boundary  conditions  for  each  segment. 

LIMIT  The  index  of  the  last  item  to  be  inspected. 

LJ  An  index. 

LL  An  index. 

LO  An  index. 

LI  An  index. 

M  An  index. 

MAX  The  number  of  species  actually  modeled  out  of  a  total  of  eight 

possible. 
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MBC  Used  in  indexing  boundary  conditions. 

MBOUND  The  number  of  boundary  conditions. 

MC  The  index  of  species. 

MJ  An  index. 

MM  An  index  of  labels  and  species. 

MNODE  The  number  of  nodes. 

MP  The  number  of  reaches. 

MTIME  The  number  of  time-steps. 

MO  An  index. 

Ml  The  lower  loop  bound. 

M2  The  upper  loop  bound. 

N  An  index  of  species. 

NBC  The  number  of  boundary  conditions  at  each  time-step. 

NDEPLO  The  first  node  at  which  the  nitrogen  pool  is  depleted. 

NDEPL1  The  last  node  at  which  the  nitrogen  pool  is  depleted. 

-3 

NH3NL  The  concentration  of  ammonia  in  the  lateral  inflow  (ML  ) . 

N0DE1  The  index  of  the  first  node  in  each  segment. 

NOP040  The  first  node  at  which  the  phosphate  is  depleted. 

N0P041  The  last  node  at  which  the  phosphate  is  depleted. 

_3 

N03NL  The  concentration  of  nitrate  in  the  lateral  inflow  (ML  ) . 

_3 

N03NX  A  provisional  estimate  of  the  nitrate  concentration  (ML  ) . 

NPOOL  The  total  inorganic  nitrogen  concentration — the  sum  of  nitrate  and 

_3 

ammonia  (ML  ) . 

NS  The  number  of  segments  in  the  system. 

N1  through 

NS38  Locations  within  the  main  storage  array. 

ORDER  A  collection  of  segment  numbers  in  an  upstream  order. 

ORGANL  The  concentration  of  organic  nitrogen  in  the  lateral  inflow. 

P  The  fraction  of  the  nitrogen  pool  composed  of  nitrate. 

PARM  A  collection  of  parameters. 

PI  it,  3.14159. 

_3 

P04L  The  concentration  of  phosphate  in  the  lateral  inflow  (ML  ) . 

_3 

P04X  A  provisional  estimate  of  phosphate  concentration  (ML  ) . 

-1/3  -1 

PO  A  lumped  friction  loss  term  for  node  I(L  /T  ). 

-1/3  -1 

PI  A  lumped  friction  loss  term  for  node  I+1(L  / T  ). 

3  -1 

Q  The  stream  flow  (L  T  ) . 


DIO 


QL 

QLA 

QX 

QO 

Q1 

R 

RCURVE 

RMILE 

RMILEO 

RMSA 

RMSQ 

SAVE 

SINI 

SINK 

SINKS 

SNAME 

SNAMEO 

START 

SUNSET 

T 

TBIO 

TEMP 

TEMPL 

TEQ 

THETA 

TIME 

TITLE 

TNH3 

TOLER 

TPHYS 


2  -I 

Lateral  inflow  per  unit  of  stream  length  (L  T  ) . 

Lateral  inflow  per  unit  of  stream  volume  (T  . 

Q  (L3BVBK)  . 

RIV1H:  Q(I) ;  RIV1Q:  Q  at  the  previous  time-step. 

Q(I+1)  • 

RIV1H:  The  residuals  from  the  governing  equations;  RIV1Q:  The 
dissolved  oxygen  deficit  ratio. 

This  is  assigned  a  literal  value  of  "R"  and  is  used  for  scanning  the 
input . 

River  mile  (L). 

The  river  mile  of  the  downstream  terminus  of  the  system  (I,) . 

The  root  mean  square  of  the  initial  cross-sectional  areas  at  every 
node  times  the  tolerance. 

The  root  mean  square  of  the  initial  flow  at  every  node  times  the 
tolerance. 

A  temporary  storage  location  used  in  column  pivoting. 

The  sine  of  the  incident  light  angle. 

The  scj'ce/sink  term  for  each  of  the  eight  modeled  species 
(ML-3^1) . 

The  average  source/sink  value  across  the  characteristic  line 

-3  -1 
(ML  '3T  L)  . 

The  segment  name. 

The  segment  name. 

The  start  time  of  the  simulation  (T) . 

The  time  of  sunset  (T) . 

The  tributary  data  transfer  array. 

The  temperature  correction  factor  for  biochemical  processes. 

The  temperature  (°C). 

The  temperature  of  the  lateral  inflow  (°C). 

The  equilibrium  temperature  (°C). 

The  weighting  factor. 

The  time  of  the  program's  execution. 

The  title  of  the  program  run. 

The  temperature  correction  factor  for  nitrification. 

The  relative  tolerance  criterion  for  the  Newton-Raphson  procedure. 
The  temperature  correction  factor  for  physical  processes. 


Dll 


TSINK  The  source/ sink  term  for  temperature  (°C  T  *)• 

TSIV  An  empirical  coefficient  in  the  Tsivoglou-Wallace  reaeration 
equation  (L  *) . 

ULL  The  velocity  at  node  1-1  of  the  previous  time-step  (LT  *)• 

ULR  The  velocity  at  node  I  of  the  previous  time-step  (LT  *) . 

US  The  average  velocity  across  the  characteristic  line  (LT  *) . 

UUR  The  velocity  at  node  I  of  the  current  time-step  (LT  *) . 

V  TRIDAG:  The  solution  vector. 

2 

XC  The  previous  time-step  components  of  the  continuity  equation  (L1"). 
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XM  The  previous  time-step  components  of  the  momentum  equation  (L  T  ) , 

Z  The  channel  bed  elevation  (L) . 


